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MASTER GAMES 


ALONSO DEL BARCO, 9 
28012 MADRID 


TLFS. 467 09 00 - 467 01 11 



SHOW JUMPING 
WHO DARES W1NS II 
TABLE FOOTBALL 
(FUTBOLIN) 

WINTER GAMES 
BREAK THRU 
XEVIOUS 
CORTOCIRCUITO 
BATMAN 
DONKEY KONG 
GREAT ESCAPE 
MIAMI VICE 
STREET HAWK 
SABOTEUR 
WAR 

WEST BANK 
BRUCE LEE 
SIGMA r 
ENEGMA FORCE 
SPY HUNTER 
FRANKIE GOES TO H 
CAMELOT WARRIORS 
COMETGAME 
V 

UVINGSTON SUPONGO 
OLE TORO 
CAULDRON II 
NOOES OF YESOD 
FUTURE KNIGHT 
FROST BYTE 
COCHE FANTASTICO 

3 LUCES DE GLAURUNG 

POLE POSITION 

STAINLESS STEEL 

COBRAS ARC 

ABU SIMBEL 

ANTIRIAD 

RAMBO 

REGRESO AL FUTURO 
HOWARD EL PATO 
GOLPE EN LA P CHINA 
GHOSTBUSTERS 
ALIENS 

WINTER SPORTS 

MASK 

TRIAXOS 

NIGHTMARE RALLY 
NINJA HAMSTER 
SLAP FIGHT 
STARFOX 
CORRECAMINOS 
EL CID 

007 ALTA TENSION 
SIOEWIZE 

CHALLENGE OF THE GOBC 

DRUID 

HYBRID 

CENTURIONS 

W S BASKETBALL 

REO LEO 

REBEL STAR 

ELBALLBREAKER 

STOP BALL 

COBRA 

BRIDE OF FRANKISTEIN 
FIST II 

TRAP DOOR II 
3AME OVER 
ONETIX 

=REDDY HARDEST 
SENTINEL 

FERNANDO MARTIN 
EMPIPE 

SUPER SOCCER 
TERRA CRESTA 
GUN RUNNER 
MUTANTS 

LAST MISION (USGOLO) 
MARIO BROS 
TRANTOOR 
MISTERIO DEL NILO 
BLACK MAGIC 
SALOMONS KEY 
ORAGONS LAIR II 
THRONE OF FIRE 
FINAL MATRIX 
SPIRITS 
ZYNAPS 

JACK THE NIPPER II 

HYSTERIA 

TAIPAN 

DESPERADO 

METROCROSS 

ALIEN EVOUTlON 

DEATH WISH 3 

WIZBALL 

CONVOY RAIDER 

SURVIVOR 

EXOLON 

ATHENA 

INSPECTOR GADGET 
PHANTIS 

SAMURAI TRIIOGY 
SUPERCYCLE 
RANARAMA 
STAR DUST 
INDIANA JONES 
HEAD OVER HEELS 
BEST OF 3D 
DON QUIJOTE 
TANK 

SABOTEUR II 

MEGACORP 

RENEGAOE 

GUADALANAL 

INFILTRATOR 

GHOST & GOBLINS 


RVP 


PVP 


PVP 


PVP 

399 

IMPLOSION 

875 

CONVOY PAYDER 

875 

CORTOCIRCUITO 

450 

399 

CUERPO HUMANO 

875 

COBRA 

875 

GREAT ESCAPE 

450 


ACE 

375 

UCHI MATA 

875 

DONKEY KONG 

450 

399 

SPACE SUTTHLE 

875 

DEATH WISH 3 

875 

TERRA CRESTA 

450 

450 

EXOLON 

875 

PULSATOR 

875 

ARKANOID 

450 

450 

GAUNTLET 

875 

GAME OVER 

875 

BREAK TRUH 

450 

450 

COMMANDO 

875 

FERNANDO MARTIN 

875 

XEVIOUS 

450 

450 

TRAP DOOR 

875 

EXPRESS RAI0ER 

875 

KNIGHT GAMES 

500 

450 

ENDURO RACER 

875 

RANARAMA 

875 

V 

500 

450 

NOSFERATU 

875 

DRAGONS LAIR II 

875 

SUPERSTAR PING PONG 

500 

450 

HIGH FRONTlER 

875 

DON QUIJOTE 

875 

ROCKN LUCHA 

500 

500 

SNOOKER (BILLAR) 
BASKET TWO ON TWO 

875 

NONAMED 

875 

GYROSCOPE 

500 

500 

875 

MAG MAX 

875 

KONAMI PING PONG 

500 

500 

BOMB JACK 

875 

TAIPAN 

875 

COCHE FANTASTICO 

500 

500 

SUPERSPRINT 

875 

METROCROSS 

875 

MIAMI VICE 

500 

500 

POPEYE 

875 

SAMURA' T R1LOGY 

875 

RAMBO 

500 

500 

WONDER BOY 

875 

MARIO BROS 

875 

ALLEYKAT 

500 

500 

FIFTH CUADRANT 

875 

SLAP FIGHT 

875 

SPY HUNTER 

500 

500 

COLOSSUS 4 (AJEDREZ' 

875 

WIZBALL 

875 

EXPLODING FIST 

500 

500 

TRIO (HIT PACK) 

QUARTET 

875 

MUTANTS 

875 

ANTIRIAD 

500 

500 

875 

CORRECAMINOS 

875 

SABOTEUR 

500 

500 

YOGUI BEAR 

875 

TANK 

875 

GOLPE EN LA P CHINA 

500 

500 

STARBYTE 

975 

SIGMA 7 

875 

TOUR DE FRANCIA 

500 

500 

REX HARD 

975 

PAJTRON 

675 

HOWARD EL PATO 

500 

500 

LAST MISION (OPERA) 

975 

MARTIANOIDS 

875 

ROAD RACE 

500 

500 

COSA NOSTRA 

975 

MISTERIO OEL NILO 

875 

REGRESO AL FUTURO 

500 

500 

GOODY 

975 

WARLOCK 

875 

ALIENS 

500 

500 

NUCLEAR BOWLS 

975 

RYGAR 

875 

B M BOXING 

500 

500 

4 SUPER 4 

1200 

TRANTOOR 

875 

GHOSTBUSTERS 

500 

500 

STIFFLIP & CIA 

1200 

STAR DUST 

875 

BASEBALL 

500 

500 

PACK MONSTRUO 

1200 

INDIANA JONES 

875 

WORLD CUP CARNIVAL 

700 

500 

STEAR WARS 

i 200 

PHANTIS 

875 

OOUBLE TAKE 

875 

500 

BARBARIAN 

1200 

DESPERADO 

875 

BRIDE OF FRANKISTEIN 

875 

500 

LEADER BOARO 

1200 

FREDDY HARDEST 

875 

INFODROID 

875 

500 

PAPERBOY 

i 200 

MEGACORP 

875 

ENLIGHTMENT (ORUIO II) 

875 

500 

PROHIBITION 

1 200 

SALOMONS KEY 

875 

HlNETIK 

875 

500 

FLUNKY 

1 200 

SURVIVOR 

875 

iRiAXOS 

875 

500 

MR WEEMS AND 


RENEGADE 

875 

'HAN ATOS 

875 

500 

VAMPIRES 

1200 

EXOLON 

875 

STARFOX 

875 

500 

1942 

1200 

TENSIONS (POKER) 

875 

REBEL 

875 

500 

HYDROFOOL 

1200 

BOMB JACK 

875 

THE SENTINEL 

875 

500 

JAiL BREAK 

1500 

PINBALL WIZARD 

875 

RED LEAD 

875 

500 

DEATHSCAPE 

1500 

SPINDIZZY 

875 

HYBRIO 

875 

Si 

NEMESIS 

DOGHFIGHT 

!8¡ 

QUARTET 

ENOURO RACER 

875 

875 

CENTURIONS 875 

CHALLENGE OF THE GOBOTS 875 

875 

DE PELICULA 

1695 

GUADALCANAL 

875 

SlDEWiZE 

875 

875 

SIX PACK II 

1 750 

BASKET TWO ON TWO 

875 

DRUI0 

875 

875 

SIX PACK l * DUET) 

1 750 

HIGH FRONTlER 

875 

DRAGONS LAIR II 

875 

875 

ALBUM DE PLATINO 

2500 

WONDER BOY 

875 

LAST MISION (USGOLO) 

875 

875 

GAME SET & MATCH 

2900 

SUPERSPRINT 

875 

KRAKOUT 

875 

875 

EL LINGOTE 

3 500 

STAR GRAPH 

875 

WATER POLO 

875 

875 

TRIVIAL PURSUIT 

3.500 

FRIGHTER PILOT 
NOSFERATU 

COMMANDO 

875 

875 

875 

RAMARAMA 

ZYNAPS 

DELTA 

875 

875 

875 

875 


P.V.P 

875 

TRAILBLAZER 

295 

INFILTRATOR 

875 

FRED0Y HARDEST 

875 

875 

FUTURE KNIGHT 

295 

INFODRO-D 

875 

GAME OVER 

875 

875 

REVOLUTION 

295 

SNOOKER (BILLAR) 

875 

ARMY MOVES 

875 

875 

KETTLE 

399 

ACE 

875 

CONVOY RAIDER 

875 

875 

WHO DARES WINS II 

399 

GAUNTLET 

875 

WEST BANK 

875 

875 

WINTER GAMES 

450 

FIFTH QUAORANT 

875 

RENEGADE 

875 

875 

ARKANOID 

450 

KINETIK 

875 

TAI PAN 

875 

875 

BATMAN 

450 

GHOST & GOBLINS 

875 

SALOMONS KEY 

875 

875 

CORTOCIRCUITO 

450 

COSA NOSTRA 

975 

SAMURAI TRILOGY 

875 

875 

DONKEY KONG 

450 

GOODY 

975 

CALIFORNIA GAMES 

875 

875 

BREAK TRHU 

450 

REX HARD 

975 

METROCROSS 

875 

875 

GREAT ESCAPE 

450 

MISS'ON 

975 

DEATH WISH 3 

875 

875 

XEVIOUS 

450 

GPAND PRlX 500 CC 

975 

MARIO BROS 

875 

875 

REGRESO AL FUTURO 

500 

CHARLY DIAMS 

975 

007 ALTA TENSION 

875 

875 

GOLPE EN L P CHINA 

500 

STARBYTE 

975 

SLAP FIGHT 

875 

875 

HOWARD EL PATO 

500 

TENNIS 

975 

EXOLON 

875 

875 

HACKER 

500 

LAST MISION (OPERA 

975 

WIZBALL 

875 

875 

ALIENS 

500 

PACK MOSTRUO 

V200 

TANK 

875 

875 

B M BOXING 

500 

LEADER BOARO 

1200 

MUTANTS 

875 

875 

WINTER SPORTS 

500 

BARBARIAN 

1200 

OECEPTOR 

875 

875 

EDEN BLUES 

500 

ACE OF ACES 

1200 

MEGA APOCALYPSE 

875 

875 

GHOSTBUSTERS 

500 

4 SUPER 4 

i 200 

CORRECAMINOS 

875 

875 

LIVINGSTON SUPONGO 

500 

HUNTER KILLER 

1.200 

INDIANA JONES 

875 

875 

BEACH HEAD II 

500 

DAMBUSTERS 

1.200 

PITSTOP II 

875 

875 

875 

GET DEXTER 

500 

CESSNA OVER MOSCOW 

1.200 

SUPER CYCLE 

875 

PACIFIC 

500 

IKARI WARRIOR 

1 200 

EXPRESS RAIDER 

875 

875 

MATCH 0AY 

500 

HYDROFOOL 

1200 

COBRA 

075 

875 

ANTIRIAD 

500 

CHAMPK3NSHIP WATERSKING 1200 

OON QUIJOTE 

875 

875 

WAR 

500 

PROHIBITION 

1 200 

FIST II 

875 

875 

STAINLESS STEEL 

500 

PAPERBOY 

1200 

MAX TORQUE 

875 


OECATHLON 

500 

FLJNKY 

1 200 

HIGH FRONTlER 

875 

875 

WEST BANK 

500 

MR WEEMS AND VAMPIRES 1.200 

BASKET TWO ON TWO 

875 

875 

RAMBO 

500 

DOGFIGHT 2186 

1500 

SPACE SHUTTLE 

875 

875 

TURBO SPtRlT 

500 

DEATHSCAPE 

1500 

ENDURO RACER 

875 

875 

CAMELOT WARRIORS 

500 

NEMESIS 

1 500 

QUARTET 

875 

875 

SGRIZAM 

500 

JAIL BREAK 

1 500 

WONDER BOY 

875 

875 

OLE TORO 

500 

SIX PACK ♦ DUET 

1 750 

SUPERSPRINT 

875 

875 

CRAY 5 

5X 

SIX PACK II 

i 750 


875 

875 

CAULDRON II 

500 

ALBUM DE PLATINO 

2000 

X-15 

875 

875 

3 LUCES DE GLAURUNG 

500 

GAME SET & MATCH (10 


INT KARATE ♦ 

875 

875 

MIAMI VICE 

500 

OEPORTES) 

2900 

GAUNTLET 

875 

875 

EXPLODING FIST 

500 

EL UNGOTE 

3 500 

GUADALCANAL 

875 


COCHE FANTASTICO 

500 



WINTER GAMES 

875 

875 

BRUCE LEE 

8S 



CAMELOT WARRIORS 

875 

875 

ROCKY 


P.V.P. 

975 
O) 975 
975 
AS 975 

975 

975 

975 


875 

875 

875 

TURBO 

HYBRID 

500 

875 

SYCLONE 2 (COPIA 
CINTA-CINTA) 

SPIRIT (COPIA CINTA DlSC 
AMSTEST (CHEQUEO) 
BASE 0€ DATOS Y ETlQUET 
SOCK AID (CONTROL DE 
STOCK! 

FOND EDITOR 

MUSIC MAESTRO 

SPACE SUTHLE 

FLIGHT DECK 

875 

875 

875 

875 

875 

875 

875 

CENTURIONS 875 

STOP BALL 875 

THE SENTINEL 875 

DRUID 875 

CHALLENGE OF THE GOBOTS 875 

VIERNES Y 13 

IRIDIS OC 

YOGUI BEAR 

SNAP DRAGON 

TRAP DOOR II 

875 

875 

875 

875 

875 

875 

875 

875 

STARFOX 

BRI0E OF FRANKISTEIN 
RED LED 

875 

875 

875 

ACE 

SNOOKER (BILLAR) 

BOMB JACK 

875 

875 

875 

875 

875 

875 

875 

875 

875 

875 

875 

NINJA HAMSTER 

EL CIO 

HEAD OVER HEELS 
ZYNAPS 

AUF WIEDERSEN MONTY 
SPIRITS 

875 

875 

875 

875 

875 

875 

1X2 QUINIELAS 1.500 

CONTABILIDAD DOMESTICA 1500 
DRAUGHTSMAN (DISEÑO 

GRAFICO) 1500 

MONITOR CODIGO MAQUINA 1500 

COMMANDO 

GHOST & GOBLINS 
COLOSSUS 4 (AJEDREZ) 
FIFTH OUADRANT 
SPIRTFIRE 40 

TRIO 

875 

875 

875 

875 

875 

375 




PVP 



THE FINAL MATRIX 

875 


LIVINGSTON SUPONGO 

975 

875 

007 ALTA TENSION 

875 

WHO DARES WINS II 

399 

STIFLIP & CIA 

i 200 


wtEizmsnsm ™ 

STAR WARS 1 200 

STAR PAWS 1 200 

THE LAST NINJA 1 200 

PAPERBOY l 200 

PROHIBíTION 1.200 

FLUNKY 1.200 

MR WEEMS AND VAMPIRES '200 
DEATHSCAPE 1500 

TRACK & FIELO 1.500 

DOGHFIGHT 2187 1.500 

ALIENS (USA VERSION) 1 500 

NEMESlS 1500 

JAIL BREAK 1.500 

DE PELICULA 1095 

SIX PACK II 1 750 

SIX HIT PACK + DUET 1.750 

ALINEADO« DE CABEZALES 2000 
ALBUM DE PLATINO 2 000 

GAME SET ANO MATCH (10 

DEPORTE) 2900 

TRIVIAL PURSUIT 3.500 

EL LINGOTE 3.500 

ACROJFT 1200 

PVP 


DAMBUSTERS 
10TH FRAME 
ALBUM DE PLATINO 
KNIGHT COMMANDER 
EL LINGOTE 


o m 


BATMAN 450 

WINTER GAMES 450 

SURVIVOR 450 

DONKEY KONG 450 

SPIRITS 450 

COLT 36 450 

HEAD OVER HEELS 450 

ARKANOlO 450 

UCHI MATA 450 

OH SHIT 500 

FIREHAWK 500 

ORAW ANO PAINT 500 

CHOPER 1 500 

FORMULA i 500 

SEAKING 500 

POKER 500 

PY RAMIO 500 

LIVINGSTON SUPONGO 500 

PASTFINDER 500 

TRAILBLAZER 500 

MAPGAME 500 

THE WALL 500 

JACK THE NIPPER 500 

GUNFRIGHT 500 

ALIEN 8 500 

FUTURE KNIGHT 500 

JET SET WILLY 500 

SHOW JUMPER 500 

BOUNOER 500 

WALKYR 500 

KNIGHT LORE 500 

DESOLATOR 875 

ABU SIMBEL 875 

CAMELOT WARRIORS 875 

GROGS REVENGE 875 

STOP BALL 875 

LAS 3 LUCES DE G. 875 

CYBERUN 875 

BUBLER 875 

MISTERIO DEL NILO 875 

007 ALTA TENSION 875 

MARTIANOIDS 875 

DESPERADO 875 

STAR DUST 875 

AROUIMEDES XXI 875 

ROCKY 875 

PHANTIS 875 

COBRAS ARC 875 

NONAMED 875 

COSMIC SHOCK ABSORBER 875 
DEATH WISH 3 875 

AUF WIEDERSEN MONTY 875 
PHANTOMAS II 875 

PENTAGRAM 875 

FERNANDO MARTIN 875 

KRAKOUT 875 

BALLBLAZER 875 

THING BOUNCES BACK 875 
AVENGER 875 

HOWARD EL PATO 875 

SPACE SHUTTLE 875 

DECATHLON 875 

ALIENS 875 

SPIRTFIRE 40 875 

GAUNTLET 875 

WINTER EVENTS 875 

737 FLIGHT SIMULATOR 875 
BOULDER OASH II 875 

SNOOKER (BILLAR) 875 

BOULDER DASH I 875 

DYNAMITE DAM 875 

CHORO O (32K) 975 

WINTER OLYMPlCS 975 

MUTANT MONTY 975 

TURBO CHESS 975 

CHOCK AND POP 975 

STAR SEEKER 975 

LAZY JONES 975 

SORCERY 975 

SUPERBOWL 975 

WHO DARES WINS II 975 

EUROPEAN GAMES 975 

3D KNOCKOUT 975 

COSA NOSTRA 975 

ABADIA DEL CRIMEN 975 

STARBYTE 975 

LAST MISION (OPERA) 975 

GOODY 975 

MISTERIO OEL NILO 975 

INTERNATIONAL KARATE 975 
DEMONIA 975 

PACK MONSTRUO 1-200 

ACE OF ACES 1 200 


P.V.P. 
1200 
1200 
1.700 
2300 
3 50C 
| PVP 

PENGUIN ADVENTURE 4.500 

NEMESIS 4 500 

GAME MASTER 4 500 

KNIGHTMARE 4 500 

LOS GOONIES 4 500 

NEMESIS 2 4 500 

MAZE OF GALIONS 4.500 

Q BERT 4 500 

KONAMI TENNIS 4 500 

KONAMI FOOTBALL 4 500 

HYPER RALLY 4 500 

GREEN BERET 4 500 

METAL GEAR (MSX2) 4 900 

VAMPIRE KILLER (MSX2) 4 900 
DESARROLLO OH 5 800 

OESARROLLO 1X2 5 800 

MULTIMILLER (COMPATIBILIZA 
MSX2) 7 900 

MILLERÓRAPH (DISEÑADOR 
GRAFICO) 9900 

MEMORYMILLER (AMPLIACION 
A64K) 11900 


qq pvp 


EXPLODING FIST * F 
WARRIOR 
DRAGONS LAIR II 
WORLD CUP CARNIVAL 
DRAGONS LAIR I 
CUERPO HUMANO 
LAST MISSION 
GOODY 

UVINGSTON SUPONGO 
COSA NOSTRA 
SlR FREO 

CORRECAMINOS ♦ 
SALOMONS KEY 
REX HARD 

DON QUIJOTE ♦ PHANTIS 
STARBYTE 

DESPERADO ♦ SURVIVOR 
S. TRYLOGY ♦ THING 
BOUNCES BACK 
BASKET TWO ON TWO 
MISSION 
CHARLY DIAMS 
ENDURO RACER 
PACK MONSTRUO 
SUPER SPRINT 
BOB WINNER 
WONOER BOY 
QUARTET 
HYDROFOOL 
TRIO (HIT PACK) 

JAIL BREAK 
NEMESIS 
PROHIBITION 
CH WATERSKING 
HIT PACK (4 EXITOS) 
OINAMIC OISC PACK 
SIX PACK ♦ DUET 
PAi'fRtir:'. 

FLUNKY 

GAME SET & MATCH 10 
DEPORTES) 

TRIVIAL PURsUIT 


1 500 
1500 
1500 
1500 
1500 
2000 
2000 
2000 
2000 

2 250 

2 250 
2 250 
2 250 
2 250 
2 250 

2 250 
2 250 
2 250 
2 250 
2 250 
2 250 
2 250 
2 250 
2 250 
2*550 
2 250 
2250 
2250 
2 250 
2250 
2 750 
2 750 
2 750 
2 750 
2 750 
2 750 

4500 
4500 

PVP 

2.250 
2 250 
2 250 
2.250 
2 250 
2 250 
2 500 
2 500 
2 750 

4 500 
4500 

BQ22EE2S3BHSB RVP 

CONSOLA SEGA * 2 STICK ♦ 
HANG ON 26 900 

UGHT PHASER PARA SEGA ♦ 1 
JUEGO 11900 


REX HARD 
FREDDY ♦ PHANTIS 
QUIJOTE + MEGACORP 
STAR RAIDERS II 
SlR FRED 
STARBYTE 
4 OINAMIC EXITOS 
LOS 40 PRINCIPALES 
PROHIBITION 
GAME SET AND MATCH 10 
DEPORTES 
TRIVIAL PURSUIT 


3D GLASSES * 3 JUEGOS 11 900 

CONTROL STICK 

2.900 

TARJETA 256K 

2.900 

CARTUCHO i MEGA 

4500 

CARTUCHO 2 MEGAS 

4900 



ZERO ZERO STANDAR 

1900 

ZERO ZERO ESPECIAL 


AMSTRAD 

1900 

ZERO ZERO ESPECIAL 


SPECTRUM ♦ 2 

1900 

QUICKSHOT 1 

995 

QUICKSHOT II 

1195 

QUICKSHOT V 

' 475 

SPEED KING KONIX 

2 595 

PHASER ONE 

3 300 

TERMINATOR 

3900 


RV.P. 

UNIDAD CASETTE 1530 

4900 
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El mundo de los juegos por ordenador en España se ha disparado en los 
últimos meses, el número de empresas distribuidoras de este tipo de software 
se ha visto notablemente incrementado y todas ellas, las más nuevas y las 
relativamente más antiguas, multiplican sus ventas y el número de títulos 
de sus catálogos, progresivamente a un ritmo de vértigo. Los chavales 
capaces de desproteger estos juegos y hacer mapas, cargadores, pokes de 
vidas infinitas, etc, han pasado de ser unos cuantos y no tan chavales hace 
tan sólo cosa de un año, a tener entre quince y dieciocho años y proliferar 
por todos los colegios e institutos de la nación. 

El ordenador doméstico se ha convertido en el juguete familiar más 
rentable de los que hasta ahora han exisitido, ya que si su precio inicial es 
elevado, comparándolo con el de otros juegos, ninguno proporciona tantas 
horas de distracción a tantos miembros de la familia como lo hace un 
microordenador. 

Cuántos papás de los más reacios a comprar un ordenador a sus hijos, 
se habrán sorprendido a sí mismos disfrutando como crios, matando algún 
que otro marcianito o intentando adquirir los conocimientos de programación 
suficientes como para llevar las cuentas domésticas o de su trabajo. 

Pero no es sólo a los papás a quienes ha picado el gusanillo de la 
programación sino, lo que es mucho más importante, que el ordenador que 
ha entrado en nuestros hogares de la mano de los juegos, ha puesto ante 
nuestros ojos la asombrosa facilidad con que los niños de hoy desvelan y 
asimilan los secretos de la programación, en lenguajes tan complicados 
como puede ser el ensamblador y es muy posible que estemos asistiendo 
al nacimiento en nuestro país de una generación, que por primera vez en 
muchos años, nos coloque a la vanguardia en una materia técnica de amplia 
trascendencia en el mundo futuro. 


EN ESTE NUMERO 


4. Juegos . Star Wars 

5. Juegos. . Ball Crazy 

7. Juegos .Haruet Headbanger 

8. Juegos . Wonder Boy 

9. Juegos . California Games 

10. Juegos . Star Dust 

11. Juegos . Mega Corp 

14. Juegos . Collossus 

15. Juegos. 2xl 

16. Juegos . Novedades 88 


18. Cómics 

20. New Soft. Prácticas Código Máquina 

21. Trucos 
Hardware 

22. Listados 

32. Cartas 

33. Pasatiempos 

34. Librería 
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JUEGOS 


STAR WARS 


ERBE 

FORMATO:CINTA/DISCO 
PRECIO: 875 PTS (CINTA) 

Tu eres Luke Skywalker y podrás 
guiar tu ALA X en sucesivas olea¬ 
das de ataque contra la Estrella 
de la Muerte. 

El juego consta de tres secuen¬ 
cias o fases diferentes, a la que 
se accede por medio de un menú 
o bien al acabar cada una de las 
fases. 

1. FASE: LUCHA EN EL ESPA¬ 
CIO EXTERIOR. 

El espacio está ante tí, miles 
de naves enemigas te impiden lle¬ 
gar a tu objetivo: la ESTRELLA 
DE LA MUERTE. Debes sobrevivir 
y abatir a los cazas del Imperio, 
mientras esquivas sus mortíferos 
misiles (sólo tienes 9 campos de 
fuerza.) 

2. FASE: A TRAVES DE LAS 
TORRES. 

Una vez hayas llegado a la super¬ 
ficie de la Estrella de la Muerte, 
debes sobrevivir a un campo lleno 
de torres. Sobre éstas, podrás en¬ 
contrar detonadores, que explo¬ 
tarán al ser alcanzados por tu Lá¬ 
ser. Buena puntería y un poco de 
paciencia son dos cosas nece¬ 
sarias para acabar esta fase. 

3. FASE: POR LAS TRINCHE¬ 
RAS. 

Finalmente llega la fase de los 
corredores, un estrecho pasadizo 
nos conduce a la salida de gases, 



10 REM POR LUIS JORGE GARCIA 
20 REM STAR WARS 

30 REM MUNDO AMSTRAD 

40 REM 

50 MEMORY &1FFF 
60 OPENOUT "t" 

70 BORDER O 

80 FOR x=0 TO 15 

90 READ a:INK x,a:NEXT x 

100 DATA 0.26,6,20,26,10;2, 11,26,13,15,23,26,24,16.23 
110 LOAD &COOO 
120 LOAD "!",&2000 

130 CLS:LOCATE 5,10:PRINT'DO NOT STOP THE TAPE" 

140 FOR x=0 TO 3000:NEXT 

150 FOR X=0 TO 15:INK X,0:NEXT X 

160 LOAD •‘".&C000 

170 POKE 25537,0:CALL &C1E6 

180 SAVE "CARSTARW 
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JUEGOS 



custodiada por diversas columnas 
que imposibilitan maniobrar con 
normalidad. 

Nuestra misión será dar en la 
salida de gases, con lo que explo¬ 
tará la Estrella de la Muerte y el 
Imperio estará a salvo. 

Las puntuaciones según el ob¬ 
jeto destruido son: 

Misil.33 puntos 

Caza enemigo. . . 1000 puntos 

Torre láser. 200 puntos 

Torreta de trinchera. 100 puntos 
Salida de gases. . 25000 puntos 


EL CARGADOR 

Si no consigues acabar el juego, 
no tendrás más que teclear el 
cargador que a continuación te 
ofrecemos, dispondrás de inmuni¬ 
dad total. 

Para la versión desprotegida: 

POKE 25537,0 

¡QUE LA FUERZA TE ACOMPAÑE! 

L.J.GARCIA. 


BALL 

Ball Crazy es uno de 
esos juegos que sin lle¬ 
gar a ser una maravilla, 
nos hará pasar horas y 
horas delante de la pan¬ 
talla. Es muy simple y sólo 
puede presentar un pe¬ 
queño problema, el co¬ 
lor, es importante, razón 
por la cual, los usuarios 
de Amstrad fósforo verde 
lo van a tener un poco 
más difícil, aunque de to¬ 
das formas, este pequeño 
inconveniente no va a in¬ 
fluir demasiado. 


CRAZY 

Nuestra misión, va a 
ser manejar a la bola 
ERIK, cuya manía es ju¬ 
garse el tipo, cambiando 
los colores de los bloques 
según el color del patrón 
(que está señalado por 
dos flechas a cada lado). 

Cuando ERIK coloque to¬ 
dos los ladrillos del mismo 
color que el patrón (ésto 
se hace botando sobre un 
mismo ladrillo hasta que 
tenga el color deseado), 
pasará de pantalla. 


MASTERTRONIC SERIE MAD 
DISTRIBUIDO POR 
DRO SOFT 
FORMATO ¡CINTA 
PRECIO: 875 PTS 
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EL BILLETE. 

Nos dará puntos ex¬ 
tra. 


EL CARGADOR. 

Tecléalo y grábalo en 
cinta o disco con: 

SAVE "CARCRAZY 
(cárgalo con RUM "CAR¬ 
CRAZY" y sigue las 
instrucciones en panta¬ 
lla) 


Te dará vidas infini¬ 
tas y balas infinitas. 

Para la versión des¬ 
protegida poner: 


OBJETOS QUE NOS 
AYUDARAN EN NUES¬ 
TRA LABOR: 

EL SATELITE. 

Son unas grandes es¬ 
feras naranjas, a su vez 
rodeadas por otras es¬ 
feras más pequeñas. Si 
los cogemos, nos darán 
un casco que nos hará 
inmunes durante un 
rato. 

EL TANQUE DE AIRE. 

Es un cilindro naranja 
con las letras A.I.R. que 
pasa rodando por la pan¬ 
talla. Dicho cilindro nos 
dará una vida extra. 


LA CANANA. 

Son unos cilindros 
que caen horizontal¬ 
mente: según las letras 
que lleven XI0, X5, así 
de balas nos dará. 

ELTICK. 

Es un punto verde 
que va girando alrede¬ 
dor de un eje vertical. 
Si consigues cogerlo, te 
ahorrarás mucho tra¬ 
bajo: todos los ladrillos 
se pondrán del color del 
patrón automática¬ 
mente. (Si te sirve de 
ayuda, más que un 
punto verde parece una 
pipa.) 


Vidas infinitas. . 

. 7279,0 

Balas infinitas. . 

. 4485,0 


L.J. García 
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HARVEY 

HEADBANGER 

FIREBIRD 
DRO SOFT 
FORMATO:CINTA 
PRECIO 495 PTS 



—u 


1 


HARVEY HEADBAN¬ 
GER tiene problemas, su 
gran rival Hamish High- 
ball es un tanto agresivo. 
Las broncas no hacen 
más que sucederse una 


tras otra y los barrigazos 
y cabezazos no han he¬ 
cho más que empezar, no 
se aguantan e intentan 
estar lo más lejos posi¬ 
ble, el uno del otro. 


Estos choques les pro¬ 
ducen ligeros desmayos 
y como consecuencia, un 
desvarío en el itinenario 
escogido. Sólo hay algo 
que los une y a la vez los 


enfrenta: su afición a la 
bebida y ésta es la causa 
principal de sus enfrenta¬ 
mientos, necesitan beber 
para vivir. 


Una de las cosas que más nos llaman la atención, es la forma de la que se carga este HARVEY 
HEADBANGER: una vez cargada la pantalla de presentación, lá carga restante se realiza con una música 
de fondo generada por el ordenador y simultáneamente a la misma carga. 

Nada más decir que es un programa sumamente original, con gran simpatía y eso si, de lo más sencillo 
que pueda existir. 


J.L.García 


WONDER 

BOY 


ACTIVISION PROEIN 
FORMATO: CINTA DISCO 
PRECIO:875 PTS. 
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WONDER BOY aquel 
día no se encontraba 
nada bien, se había caído 
de la cuna tres veces y 
para colmo habían rap¬ 
tado a su novia TINA. 
Todo lo había maqui¬ 
nado un persona 
diabólica el Diablo KING. 

King vivía a las afue¬ 
ras en un palacio, un 


lugar recóndito y lo que 
pensaba hacer con la 
pobre novia de W.BOY, 
no estaba nada bien. Si 
WONDER no se daba 
prisa, TINA se quedaría 
toda su vida fregando 
platos y cubiertos en pa¬ 
lacio. 

Para ello, Wonder Boy 
dibujó un mapa aproxi¬ 


mado del camino que 
debía seguir para llegar 
a palacio. 

1. Debería cruzar siete 
peligrosos territorios. 
Pero no era tan fácil, 
cada territorio estaba com¬ 
puesto de cuatro tierras 
y cada tierra de cuatro 
áreas. 

Para complicar un 


poco más las cosas, al 
final de cada territorio, 
había un Ogro loco, al 
que WONDER BOY 
debía matar para pasar 
al siguiente nivel. 

2. En su camino de¬ 
bería saltar sobre varios 
objetos y obstáculos que 
de otra forma impedirían 
su marcha. Pero tam¬ 
poco era- nada fácil; a 
veces dichos obstáculos 
eran seres vivientes que 
se avalanzaban sobre él, 
como abejas, culebras y 
sapos asesinos, a los 
que sólo podíamos matar 
con el arma que más a 
mano tuviéramos. 

3. En ocasiones, en tu 
camino, encontrarás un 
huevo gigante; ábrelo, en¬ 
contrarás un monopatín 
o una esencia que te 
protejerá durante un rato. 

4. Come algo de fruta 
de vez en cuando, te 
dará puntos. 

¡¡¡SUERTE W.BOY, ES¬ 
PERAMOS QUE NO TER¬ 
MINES FREGANDOLOS 
SUELOS!!! 

LUIS JORGE GARCIA 



- PHANTIS.17.8% 

- DESPERADO. g 2 % 

- STARDUST.' ' ' ' 8 ; 0 o /o 

- FREDDY HARDEST.6*5% 

- MEGACORP. 0 30 ^ 

- BALL CRAZT.. 6 2 % 

- STARWARS. 61% 

- SPIRIT.6*0% 

- COLLOSSUS. 5 . 8 % 


TOTAL. 100 % 


Estos son los primeros re¬ 
sultados de vuestras votacio¬ 
nes. 

Seguid escribiendo, para 
que todos sepamos cuáles 
son los programas que más 
nos divierten. 
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CALIFORNIA 

GAMES 


10 
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MEMA 


EPYX 

DISTRIBUIDO POR ERBE... 
FORMATO ¡CINTA 
PRECIO: 875 PTS 


Desde que salió el pri¬ 
mer programa deportivo 
para el ordenador, la 
avalancha de este tipo de 
juegos ha sido terrorífica: 
día a día nuevos juegos 
deportivos y cada casa de 
software se esforzaba por¬ 
que su producto fuera el 
mejor.(También había 
algunas que hacían lo 
contrario). Y todavía 
ahora sigue llegándonos 
estos juegos, que si bien 


tratan todos de lo mismo, 
ofrecen importantes cam¬ 
bios como el tema, la ca¬ 
lidad gráfica, los movi¬ 
mientos y los efectos so¬ 
noros. Este es el caso de 
CALIFORNIA GAMES 
uno de los más comple¬ 
tos programas de depor¬ 
tes. 

El objetivo de dicho pro¬ 
grama no es otra cosa 
que realizar un test de ha¬ 
bilidades para uno o más 


jugadores, hasta un 
máximo de ocho. Y el ob¬ 
jeto de la prueba, ganar 
todos los trofeos posibles. 

Seis son las pruebas 
que hay que realizar con 
éxito'para ser el mejor: 

1. HALF PIPE SKATE 
BOARDING 

2. FOOT BAG 

3.SURFING 

4.SKATING 

5. BMX BIKE RACING 

6 . FLYING DISK 


Pudiendo elegir si quie¬ 
res competir en todas o 
sólo en una, practicar o 
montarte tu propia com¬ 
petición. 

Cada jugador elige un 
sponsor para la compe¬ 
tición. Serás juzgado por 
él en cada prueba y lle¬ 
varán la cuenta de tus 
totales. Los trofeos son 
entregados a los mejo¬ 
res. 

L.J.GARCIA 
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JUEGOS 


STAR DUS 


TOPO SOFT 

PRECIO 875 pts. 

(formato cinta/disco) 

El comandante de la nave RAIN- 
BOW había dicho sus últimas pa¬ 
labras, sólo había una forma por 
la cual la paz y la tranquilidad vol¬ 
vería al espacio interestelar: exter¬ 
minar a los MAGIDES, terribles ha¬ 
bitantes del planeta STARD DUSH! 
y destruir su base y defensas. 

Fue entonces cuando el Capitán 
del equipo decidió acabar con 
STAR DUSH para siempre. Nada 
podrían hacer sus defensas contra 
un gatillo rápido. 

Y así es como despedimos a la 
nave CM1 deseándole toda la 
suerte del espacio sideral y espe¬ 
rando volver a verla otra vez. 

La base enemiga estaba llena 
de torretas de vigilancia, esferas- 
fuel, barreras láser y muchas otras 
armas defensivas con las cuales 
el acceso a otros niveles se hacía 
casi imposible, aún con el láser, 
eldesintegradorde partículas gran¬ 
des y otras ayudas que nos pres¬ 
taban algunos de nuestros aliados. 

Sólo había una forma de llegar 
al final de la misión con éxito y 
ésto era copiando el cargador de 
vidas infinitas e inmunidad que se 
encontraba en alguna de las revis¬ 
tas de abordo. 

Una vez hecho todo ésto, lo 
demás fue pan comido. Base tras 
base fueron destruidas, consi¬ 
guiendo pasar a la segunda fase 
del juego, pasando las defensas 
de la nave insignia. 

En la segunda fase el fuel se 
había agotado y sólo quedaba una 
solución: "ir a patita hasta encon¬ 
trar los seis generadores o reser¬ 
vas defensivas del enemigo, des¬ 
activando una tras otra mediante 
un disparo". 




Después habría que volver rápi¬ 
damente a la nave, ya que el tiempo 
de explosión del planeta era 
mínimo, consiguiendo así despe¬ 
gar antes de la destrucción total 
del planeta. 
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MEGA CORP 



Tras varios días de viaje llegué 
a mi objetivo y aterricé en el bos¬ 
que, que allí formaba un claro. Todo 
había ocurrido según lo previsto, 
tal como me indicaba una parpa¬ 
deante luz que surgía del panel 
de mandos. Me levanté y me dis¬ 
puse a salir. Hacia el sur estaba 
la bodega de la nave, allí encontré 
una pistola y unos contenedores. 
Cogí la pistola y abriendo un cajón 
de uno de los contenedores des¬ 
cubrí un botiquín. Durante un mi¬ 
nuto dudé si cogerlo o no y tras 
tirar una moneda al aire salió que 
si. La moneda cayó por una ranura 
y ya no supe más de ella. "Dita 
sea" -pensé- "mi última moneda". 

A pesar de ésto debía continuar. 
Por ello pulsé el botón que abre 
la compuerta. Salí de la nave y 
miré a mi alrededor. Me dirigí al 
sur, en donde el bosque comen¬ 
zaba a espesarse. Pude ver que 


algo se movía al oeste y me 
acerqué hacía allí, entre unos ma¬ 
torrales vi moverse una manada 
de Zith que pastaban tranquilos. 
Entonces me acordé de la pistola 
que había recogido en la nave y 
probé si funcionaba apuntando a 
un Zith que destacaba por su 
enorme barriga y funcionó, aba¬ 
tiendo al anorme bicho que cayó 
al suelo mientras el resto huía des¬ 
pavoridos hacia todas direcciones. 
Me acerqué a él y le cogí a pesar 
de su peso. Volví al este con el 
Zith a cuestas y continué en esa 
dirección'. 

Cuando no pude seguir, fui ha¬ 
cia el norte y me paré a descansar. 
Entre los susurros del viento y el 
correr de las hojas a mis pies, pude 
oír unos gruñidos hacia el este. 
Agarré mi Zith y sigilosamente me 
dirigía hacia allí, cuando ante mi 
vi aparecer, dos enormes Kryx que 


DINAMIC 
FORMATO:CINTA 
PRECIO:875 PTS. 


me miraban y se relamían al verme. 
Tiré el Zith al suelo para coger mi 
pistola, pero ellos le cogieron y co¬ 
rrieron por el bosque. 

Continué hacia el este y me en¬ 
contré en un sendero. Al norte pude 
ver un pequeño poblado y me en¬ 
caminé hacia él. 

El poblado estaba desierto, era 
dn poblado Ynnh'Arr. Pude distin¬ 
guir una choza que sobresalía en¬ 
tre las demás por su amplitud. Entré 
y me encontré frente a un anciano 
herido en una pierna que me mi¬ 
raba con pena. Me enternecí tengo 
que reconocerlo, y me dispuse a 
curarle. Fue más sencillo de lo que 
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creía y con sólo una venda el an¬ 
ciano sonrió y de la penumbra sa¬ 
lieron los guerreros del poblado con 
caras amistosas. Orgulloso de mi 
mismo, volví al camino y me dirigí 
al este, por donde corría un cau¬ 
daloso río. 

Entre la vegetación descubrí la 
canoa y me dispuse a subir, pero 
estaba sujeta a un árbol. Un 
Ynnh'Arr, al verme vino en mi ayuda 
y la desató poniéndola en la orilla. 
Subí a ella y la corriente me llevó 
a un lago. Remé hacia el oeste y 
salí de la canoa, Vi un templo al 
sur. Entré y vi un pedestal y una 
argolla. De pronto, al pie del pe¬ 
destal vi un frasco y lo cogí. En 
su interiordistinguí un líquido ama¬ 
rillo y pensé que era algún licor. 
Salí del templo y me dirigí a la 
canoa. Al volver al centro del lago, 
pude descubrir algo brillante en el 
fondo, me disponía a bajar al agua 
cuando vi que estaba plagado de 
peces carnívoros. De pronto me 
invadió una sed tremenda y des¬ 
tapé el frasco para beber un poco, 
pero el líquido cayó al agua y los 
peces se fueron. Salí de la canoa 


y buceando cogí una moneda. 
Remé hacia el norte y subí al mue¬ 
lle. Allí había un Ynnh’Arr que 
señalaba un letrero ilegible. Pensé 
que era un pobre y le di la moneda, 
por lo que me dejó pasar. Fui ha¬ 
cia el este y me encontré con un 
guardia. Este me pidió no se qué, 
pues no le entendí y me cortaba 
el paso. 


Tomé mi pistola y se la entregué 
creyendo que me había descu¬ 
bierto y que me llevaría a prisión, 
pero me dejó pasar y me enca¬ 
miné a la ciudad. 

II PARTE (CLAVE: REBECA) 

Estaba en una transitada calle, 
fui hacia el norte hasta la prisión 
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y me dirigí al este, en donde había 
una peletería. Entré y le entregué 
al dueño el disco. Este me explicó 
mi misión: debía coger un dossier 
cuya clave era ONIX, que estaba 
en la prisión. Así que debía entrar 
allí y cogerle. Luego me echó de 
la peletería. 

Tenía la boca reseca por lo que 
me dirigí hacia el oeste hasta el 
callejón y luego al sur, donde es¬ 
taba el bar. Al entrar vi ante mí a 
las razas más dispares y extrañas. 
Un humano borracho me miraba, 
me acerqué a él y me dijo "no gri¬ 
tes en el tempo, si lo haces te 
llevarán a la cárcel". ¡Justo lo que 
necesitaba! Salí del bar y me en¬ 
caminé hacia éste hasta que me 
encontré en la puerta del templo. 
Entré y grité con todas mis fuer¬ 
zas. 

Mi celda era pequeña, en el 
suelo había un jarro y un sucio 
colchón. Me tumbé y descubrí que 
en él había algo, una pistola de 
agujas. Intenté beber del jarro pero 
estaba vacío, le tiré con rabia y 
se rompió, descubriendo entre los 
pedazos una afilada aguja. Con 
ella cargué la pistola y esperé a 
ver qué pasaba. De pronto la puerta 
se abrió. Salí y no vi a nadie. Fui 



al este y un guardia me vio, pero 
de un disparo le liquidé y mirando 
en sus bolsillos descubrí un papel 
con números y letras. Me dirigí al 
oeste y entré en un ascensor. Pulsé 
el botón BB y salí. Vi ante mí un 
ordenador que me pedía una clave. 
Tecleé THX1138 y el ordenador 
me pidió la clave del documento. 
Tecleé ONIX y de la impresora 
surgió el dossier. 

Entré en el ascensor y pulsé AA, 
salí y me encontré con un robot 
que pedía un código de acceso. 
En un teclado que había tecleé 
TMA 1 y pude pasar. Fui al oeste 
y cogí una palanqueta y una lin¬ 
terna. Volví al este, bajé por una 
escalera y me encontré en una bo¬ 
dega, en el suelo había una tapa 
de alcantarilla, la abrí y bajé por 


ella, luego fui hacia el sur y hacia 
el oeste. En el techo vi una espe¬ 
cie de volante, lo apreté, me res¬ 
pondió con un click, lo giré y subí 
al exterior. Me encontraba en el 
callejón. Ahora debía llamar al 
teléfono 10 11 85, necesitaba una 
moneda para llamar, por lo que fui 
al este hasta la peletería. Bajé al 
sur y me puse a pedir en el templo, 
un bicho raro me dio una moneda, 
agradecido me apoderé de ella. 

Seguí hacia el sur, entré en una 
cabina, metí la moneda y marqué 
el número. El suelo cedió y caí en 
un pasadizo subterráneo, fui al este 
y allí me esperaban los rebeldes 
que me felicitaron fervorosamente. 

Tres días después disfrutaba en 
mi mansión contando mi dinero, 
cuando llamaron a la puerta. Al 
abrir me quedé horrorizado y em¬ 
pecé a temblar, mientras el son¬ 
riente inspector de Hacienda pa¬ 
saba a mi casa. 


L.J. García 




CONOCES EL CODIGO MAQUINA? 


PUES AUNQUE ESTES EN EL ULTIMO RINCON DE ESPAÑA, ESCRIBE¬ 
NOS, SI QUIERES COLABORAR CON NUESTRO EQUIPO DE PROGRAMA- 
DORES EN LA REALIZACION DE JUEGOS COMERCIALES. 

ESTAMOS EN TOMAS LOPEZ 3-6 PISO. 28009 MADRID 
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JUEGOS 


UN AJEDREZ A LO GRANDE 


COLLOSSUS 4 CHESS 


SERMA 

FORMATO: Cinta y 
PRECIO: 

Por nuestras pantallas 
han pasado un montón de 
programas de ajedrez, 
ahora le toca el turno al 
Collossus. 

Collossus es un pro¬ 
grama donde se han in¬ 
cluido características nue¬ 
vas que antes no se tenían: 
subascensos, la regla de 
la jugada cincuenta y to¬ 
dos los empates por repe¬ 
tición. Además maneja to¬ 
dos los mates normales 
incluyendo el Rey y dos 
Alfiles contra Rey y el 
dificilísimo Rey, alfil y Ca¬ 
ballo contra Rey. 

La pantalla principal 
muestra un tablero de aje¬ 
drez en diagrama gráfico 
y los varios mensajes y 
preguntas que se necesi¬ 
ten. La segunda pantalla 
muestra el registro de la 
jugada anterior, incluyendo 
los nombres de los juga¬ 
dores y los relojes de aje¬ 
drez, así como información 
sobre los procesos de pen¬ 
samientos del programa, 
incluyendo previsión de po¬ 
siciones examinadas, línea 
actual y mejor línea con 
evaluación. 

Alrededor del tablero 
hay números y letras, indi¬ 
can la notación algebraica 
que se usa para cada 
escape. 

También es posible gra¬ 
bar en cinta o disco regis¬ 
tros de jugadas y posicio¬ 
nes. De tal forma que 


disco 



C&S SoftWt 


amstrad cassette 


luego las podamos cargar 
desde cinta o disco. 

Junto al programa origi¬ 
nal le acompaña un ma¬ 
nual de 21 páginas en 
donde se detalla todo lo 
referente a este programa. 

Es el mejor programa 
que se ha hecho hasta 
ahora de ajedrez para Ams- 
trad, creemos que pasará 
mucho tiempo hasta que 
lo supere otro programa. 

Antonio Pérez 
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JUEGOS 


"2 x 1" 


DINAMIC 

FORMATO: DISCO 

PRECIO: 2.500 Pts.: Phantis - Freddy Hardest 
2.250 Pts. -Don Quijote -Megacorp 


P 

DOS O 

R 


UNO 


Tras la aparición del + 3, las 
casas distribuidoras están lan¬ 
zando recopilaciones de los mejo¬ 
res programas aparecidos hasta 
estos momentos. 

Dinamic se ha puesto en mar¬ 
cha y nos ofrece cuatro de sus 
mejores programas. 


En una carpeta nos encontra¬ 
mos con la prima de Sabrina y su 
Playboy, o sea Phantis y Freddy 
Hardest. 

En la segunda carpeta nos 
encontramos los mejores progra¬ 
mas conversacionales que se han 
hecho en España. Don Quijote y 


Megacorp. 

Por cierto, nosotros creemos 
que el programador ha debido ver 
o leer el libro titulado La clave está 
en Rebeca, ya que como dice en 
el texto, la clave de acceso es 
"Rebeca". 

Antonio Pérez 
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NOVEDADES 88 


Ya conocéis nuestros super programas, pero para todos 
aquellos que aún no han tenido esa suerte, os recordamos en 
este apartado de qué van estas "historias". 

SABOTAJE 

Si te enrollan los juegos de guerra futurista, el SABOTAJE te va 
a alucinar. 

Te encontrarás metido en la batalla que libran desde hace 30 
años, la Unión Afroasiática y la Confederación Euro-Americana 
(CEA) por los derechos de explotación del cinturón de asteroides 
que están entre Marte y Júpiter. 

Es el año 2057 y las armas empleadas, son lógicamente muy 
sofisticadas:los espías de la CEA se han enterado de que sus 
enemigos Afro-Asiáticos, están ultimando un ingenio nuclear de 
alcance limitado a la zona contraria. Así que no les queda más 
remedio que infiltrar en la base militar enemiga, un Robot elevador 
que localice y sabotee la bomba. 

Imagínate la cantidad de trampas defensiuvas que tiene que 
superar, con la única ayuda de un potente detector de fuerzas 
hostiles y sobre todo de tu rapidez de reflejos e inteligencia. 

¡¡Demuéstrales tu ingenio estratégico, si es que tienes un MSX 
o un SPECTRUMÜ 




BLOODY 

Que contarte de BLOODY que ya no sepas, seguro que lo pasas 
genial con este simpático vagabundo interplanetario, que ha venido 
a la Tierra para buscar algo de comida. Al pobre se le hace la boca 
agua, cuando huele ese suculento líquidillo rojo que los terrícolas 
tenemos en las venas y como ve tanto plato suculento, no sabe por 
dónde empezar. ¡Pero mira que listo! se le ha ocurrido ir al banco 
de Sangre del Hospital General, pero...que maravillosa sorpresa, 
la fastuosa enfermera Patricia Pérez está de guardia. 

Lo que BLOODY no sabe, es que al salir de su esterilizada nave, 
le atacarán todos los virus terrestres, dificultando además su de¬ 
fensa, los efectos de la gravedad, que le hará chocar contra diver¬ 
sos objetos que fastidiarán su salud y ante los que sólo sobrevivirá, 
si consigue encontrar el antídoto específico. 

¡Pobre Bloody, vas a tener que ayudarle! Podrás divertirte con 
nuestro super juego si te has comprado un MSX o un SPECTRUM. 


Si tienes un AMSTRAD, te lo podrás pasar genial con TOYS. 

Nuestro amigo Ciber está desconcertado ante la rebelión de sus 
juguetes, hartos de que su dueño esté todo el día dándole a las 
teclitas del dichoso ordenador. Así que se les ha ocurrido esconder 
todo el material informático por el jardín, el castillo y el cementerio 
cercano. 

Pero no sólo tienes que tener valor para adentrarte en las miste¬ 
riosas ruinas del castillo, sino mucha habilidad para sortear los 
ataques de los furiosos juguetes revolucionarios. 

¡No te dejes dominar y a por ellos ! 


TOYS 
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FUNKY 

PUNKY 


¿Os acordáis de FUNKY PUNKY? 

Vaya paliza que se tiene que dar para llegar puntual al examen 
de las 10. Es que ayer dió una de sus famosas fiestorras y no os 
cuento cómo tiene el coco. 

Veremos si es capaz de recoger sus cosas entre tanto lio de la 
fiesta, sortear a los conductores todavía dormidos, encontrar el aula 
del examen y no dejarse asustar por los bichos extraños que la 
resaca hace aparecer y sobre todo ¡¡contestar las 10 preguntas del 
examen!!. Date prisa queda poco tiempo y el camino hasta el 
instituto es largo. Podrás divertirle con FUNKY PUNKY, si posees 
un SPECTRUM o un MSX. 



MADNESS 

MADNESS está dedicado a los viciosos de las video aventuras* 
espaciales. En un lejano y extraño planeta, de ni se sabe que* 
galaxia, habían unos serles hostiles pero muy atrayentes para la 
curiosidad de nuestro protagonista, al que le apasiona explorar 
planetas extraños. Tendrá que defenderse de los furiosos atacantes 
con su "súper pistola de rayos infrarrojos, tan super, que sólo 
dispara dos veces, así que tendrás que recargarla continuamente, 
recogiendo unos frutos que van apareciendo. 

Agudiza tu vista y busca esos frutos por todo el planeta ¡Ah! y 
cuidado con tu espalda, por si te atacan. Juega con MADNESS en 
un AMSTRAD. 


I SI QUIERE PASAR BUENOS RATOS CON NUESTROS 

i JUEGOS, ESCRIBENOS A: SYGRAM S.A. POLIG. IND. 
VALDONAIRE C/APOLONIA HERNANDEZ. HUMANES (MA- 
DRID^ 

£TE__ LOS ENVIAREMOS CONTRA REEMBOLSO AL 
PRECIO DE 500 PTS CADA UNO Y NO TENDRAS QUE 
PAGAR GASTOS DE FRANQUEO. 
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MEM 



IDFT 


PRACTICAS EN CODIGO 

Producirá el ya citado 
CLS CM. El equivalente 
en BASIC sería; 



LDIR en el AMSTRAD 


La instrucción LDIR del 
Z-80, tiene como objetivo 
la realización de transfe¬ 
rencias de datos. De una 
zona de la ROM o de la 
RAM a otro sitio que 
queramos. 

Dicha instrucción ne¬ 
cesita el empleo de tres 
pares de registros:BC, DE 
y HL. 

El registro DE sirve 
para apuntar el destino 
o la dirección final a la 
que vamos a trasmitir el 
bloque. 

El registro BC es un 
contador de 16 bits, 
donde introduciremos la 
longitud del bloque a trans¬ 
ferir. 

La instrucción LDIR rea¬ 
lizará la transferencia. 

LDIR significa "carga, 
incremento y repetición", 
actuando de la siguiente 
forma en los tres pares 


La utilidad de dicha ins¬ 
trucción es muy amplia de¬ 
bido a su simplicidad y 
rapidez. 

No ocupa más que 
once bytes. 

A continuación pondre¬ 
mos dos ejemplos en los 
que la instrucción LDIR 
puede resultarnos de uti¬ 
lidad: 

1. VISUALIZACION 
INSTANTANEA DE UNA 
PANTALLA DE PRESEN¬ 
TACION. 

Es muy utilizada en 
los programas de jue¬ 
gos, la pantalla se carga 
en una dirección baja y 
luego se visualiza en pan¬ 
talla instantáneamente. 

Suponiendo que haya¬ 
mos cargado la pantalla 
de presentación en la di¬ 
rección 10.000. 


Si no dispones de en¬ 
samblador, puedes te¬ 
clear el siguiente pro¬ 
grama BASIC; 


10 FOR N=1000 TO 
1013:READ a: POKE 
n,a: NEXT N 

20 DATA 33,0,192, 
229,209,19,1,0,64,54, 
0, 237,176,201 
30 CALL 1000 
40 STOP 


LUIS JORGE GARCIA 


10 FOR n=1000 TO 
1011: READ a: POKE 
n,a: NEXT N 
20 DATA 33,16,39, 
17,0,192,1,0,64,237,176, 
30 CALL 1000 
40 STOP 


201 


Realizará la misma 
función que el listado en¬ 
samblador. 


2.BORRADO DE 
PANTALLA CON LDIR 


Producirá práctica¬ 
mente el mismo resul¬ 
tado que CLS, pero en 
Código Máquina. 


10 

20 

30 

40 

50 

60 

70 

80 


LD HL,49152 
PUSH HL 
POP DE 
INC DE 
LD BC,16384 
LD (HL),0 
LDIR 
RET 


mente señalados: 

10 

LD HL, 10000 

;dir. del bloque 

- Decrementa BC (al 

20 

LD DE,49152 

;dir. final, (pantalla) 

llegar a O devolverá el 

30 

LD BC, 16384 

;longit. del bloque 

control si ponemos RET 

40 

LDIR 


al final de la rutina). 

50 

RET 

¡devuelve el control al ser BC=0. 


Incrementa HL y DE 
(transfiriendo los datos de 
la posición HL a DE). 


Nos pasará el dibujo 
a pantalla instantá¬ 
neamente. 



20 MUNDO AMSTRAND 













TRUCOS 


LLAMADAS A LA ROM 


Las siguientes llamadas a la ROM, producirán extraños efectos en tu ordenador. 


CALL &bd11 

CALL &bc4f 

PRINT CHR$ (7) 

CALL &bb18 

CALL &bd20 

PRINT CHR$ (12) 

CALL &bc07 

CALL &bc03 

PRINT CHR$ (14) 

CALL &bc08 

CALL 19 (ENTER) 

PRINT CHR$ (19) 

^ CALL &baOa 

CALL 20 (ENTER) 

PRINT CHR$ (24) 

CALL &ba07 

PRINT CHR$ (29) 

PRINT CHR$ (31). (poner 2 veces). 

CALL &ba08 

PRINT CHR$ (30) 


CALL &bc5d 

PRINT CHR$ (4) 



(Estos trucos o llamadas, han sido probadas en el modelo CPC 464 con resultados positivos) 

J. Rodríguez 


-HARDWARE- 

COGE LOS MANDOS 
DE LA FANTASIA 


En temas relacionados con la 
informática, los conceptos evolu¬ 
cionan a velocidadessupersónicas; 
hasta hace bien poco, un mando 
de juegos (Joystick) era un instru¬ 
mento con ventosas, adherido, con 
más o menos firmeza, a una mesa 
y diseñado para ser utilizado con 
una sola mano. Si bien la realidad 
era distinta, ya que la poca fiabili¬ 
dad de las ventosas nos obligaba 
a sujetar fuertemente el aparato 
con la mano libre, a fin de evitar¬ 
nos desagradables sorpresas en 
los momentos más críticos. 

Otro defecto bastante desespe¬ 
rante de los mandos clásicos, era 
la poca seguridad que ofrecían para 
hacer un buen contacto eléctrico 



al cambiar su postura del controla¬ 
dor de dirección. 

El "PHASOR ONE" de U.S. 
GOLD distribuido en España por 
ERBE, renuncia a la pretensión de 
ser utilizado con una sola mano y 
ofrece un diseño más cómodo de 
sujetar que los Joysticks clásicos, 
se maneja con una mano que al 
mismo tiempo controla el botón de 
disparo, dejándonos la otra libre 
para accionar su sensible palanca 
de control de movimientos, cuya 
seguridad y precisión son inmejo¬ 
rables gracias a sus microswitches, 
que han venido a sustituir a las 
tradicionales y poco fiables mem¬ 
branas encargadas de realizar los 
contactos eléctricos. 
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LISTADOS 



"LA ABEJA" 



30 MODE 0: BORDER 0:INK 0,0: INK 1,2,8:PAP 
ER 0:PEN 1:CLS:SPEED INK 5,5:LOCATE 3,12 
:PRINT"L A A B E J A":FOR T=1 TO 2000: 
,NEXT 

40 MODE 1:BORDER 0:SPEED INK 50,50:SYMB0 
L AFTER 0:RESTORE 560:FOR Z=0 TO 11:READ 
C:INK Z,C:NEXT:INK 12,2,8:INK 13,6,Z6:P 
AFER 0: PEN 1:CI,S:F0R Z = 1 TO 22 : READ E$:L 
OCATE 1, Z:PRINT E$:S0UND 1,100, 5:NEXT:SO 
UND 1, 500, 10:GOSIJB 800 
50 IF INKEY$="" THEN 50 
/60 CLS:IN$=CHR$<174);J$=STRING$(39,32):L 
OCATE 2,5:PRÍNT"DEFINICION DE LAS TECLAS 
DE JUEGO:-:LOCATE 1,7:PRINT IN$;"PARA S 
UBIK LA ABEJA?” :GOSUB 590: S$=L,$: LOCATE 1 
,7:PRINT J$:LOCATE 1,7:PRINT "PARA SUBIR 
";S$ 

70 LOCATE 1,9:PRINT IN$;”PARA BAJAR LA A 
/BEJA?" :GOSIJB 590: B$=L$ : LOCATE 1,9: PRINT 
J$:LOCATE 1,9:PRINT "PARA BAJAR ";B$ 

80 LOCATE 1,11.PRINT IN$;"PARA LLEVAR A 
LA DERECHA A LA ABEJA?":GOSUB 590:D$=L$: 
LOCATE 1,11:PRINT J$:LOCATE 1, 11:PRINT " 
PARA LA DERECHA ";D$ 

90 LOCATE 1,13:PRINT IN$;"PARA LLEVAR A 
LA IZQUIERDA A LA ABEJA?":GOSUB 590:I$=L 
LOCATE 1,13:PRINT J$:LOCATE 1,13:PRINT 
PARA LA IZQUIERDA ";I$ 

100 LOCATE 1,15:PRINT IN$;"PARA ABANDONA 
R EL JUEGO?":GOSUB 590:AB$=L$:LOCATE 1,1 
5:PRINT J$:LOCATE 1,15:PRINT "PARA ABAND 
ONAR EL JUEGO ";AB$ 

110 LOCATE 1,18:PRINT IN$;"NIVEL DE JUEG 
O? (1 DIFICIL - 5 FACIL)":GOSUB 590:VNJ- 
VAL<L$):IF VNJCl OR VNJ>5 THEN 110 ELSE 
LOCATE 1,18:PRINT J$:LOCATE 1,18:PRINT"N 
IVEL";VNJ 

120 LOCATE 1,23:PRINT"SI ESTAS DE ACUERD 
O CON ESTAS TECLAS PULSA S SINO PULSA 
CUALQUIER OTRA TECLA" 

130 L*=INKEY$:IF L$="" THEN 130 ELSE IF 
L$< >"S" AND L$<>"s" THEN 60 
140 NJ=VNJ*10:PT=0:NV=1:VD=5:KD$=STRING$ 
(4,46) 

150 MODE O:SPEED INK 50,50:GOSUB 530:FT=‘ 
-1 

160 LL$=STRJNG$(20, LD$):PEN 2:L0CATE 1,2 
:PRINT LL$:LOCATE 1,24:PRINT LL$:FOR Z=3 
TO 23:LOCATE l.Z:PRINT LD$:LOCATE 20, Z: 
PRINT LD$:NEXT 
170 GOSUB 450:GOSUB 550 
180 RANDOMIZE TIME:FOR Z = 1 TO NV*10 STEP 
NV:0=INT(Z/10+1):IF 0>6 THEN 0=6 
190 XO=INT(RND*18+2):YO=INT(RND*21+3): IF 
TEST(XO*32-16,408-(Y0*16))<>0 THEN 190 
200 LOCATE X0,Y0:0N O GOSUB 650,660,670, 
680, 690, 700 

210 NEXT:PEN 2:FOR Z=1 TO TNT(NV/5+l):G0 
SUB 480:NEXT:YA=4 

220 FOR XI=2 TO 19:IF TEST(XI*32-16,408- 
(YA*16))=0 AND TEST(XI*32-16, 408-((YA+1) 
*16))=0 AND TEST(X1*32-16,41l-(YA*16))=0 
AND TE5T(XI*32-16,411 — <(YA+1)*16))=0 TH 



EN XA=XI:XI=20 

230 NEXT:IF XI=20 THEN YA=YA+1:G0T0 220 
240 SPEED INK 2,2:SX=1:SY=0:GOSUB 720:F0 
R T=1000 TO 10 STEP -5:SOUND 1, T, 1:SOUND 
2,T+10,1:NEXT 
250 IF SQ(1)04 THEN 260 
260 L$=INKEY$:IF L$=AB$ THEN 760 
270 FOR T=1 TO NJ:NEXT 
280 IF L$=S$ THEN SY=-1:SX=0 
290 IF L$=B$ THEN SY=1:SX=0 
300 IF L$=D$ THEN SX=1:SY=0 
310 IF L$=I$ THEN SX=-1:SY=0 
320 T0=TEST((XA+SX)*32-18, 412-<(YA+SY)*1 
6)):T1=TEST((XA+SX)*32-16,412-((YA+SY-1) 
*16)):IF T0=2 OR Tl=2 THEN 730 
330 TO=TEST((XA+SX)*32-16,408-((YA+SY)*1 
6)):T1=TEST((XA+SX)*32-16,408-((YA+SY-1) 
*16 >) : IF T0O0 AND T0<>4 OR TlOO AND TI 
04 THEN GOSUB 380: IF T0=T1 THEN GOSUB 3 
80 

340 SOUND 1,500,3:G0SUB 710:XA=XA+SX:YA= 
YA+SY:SOUND 2,10,3:G0SUB 720:IF FTC10 TH 
EN 260 

360 FOR T=1000 TO 10 STEP -10:SOUND l.T, 
3, 15:SOUND 2, T+100,2, 12:SOUND 3, T+500, 1, 
10:NEXT 

360 IF SQ(1)< >4 THEN 360 

370 NV=NV+1:FOR Z=1 TO 100:L$=INKEY$:NEX 

T:GOTO 150 

380 IF T0=5 OR Tl=5 THEN PT=PT+10:GOSUB 
450 

390 IF T0=3 OR TI=3 THEN PT=PT+20:GOSUB 
450 

400 IF T0=6 OR TI=6 THEN PT=PT+40:GOSUB 
450 

410 IF T0=9 OR Tl=9 THEN PT=PT+60:GOSUB 
450 

420 IF T0=10 OR Tl=10 THEN PT=PT+50:GOSU 
B 450 

430 IF T0=11 OR Tl=l1 THEN PT=PT+30:GOSU 

B 450 

440 RETURN 

450 PEN 10:LOCATE 4,1:PRINT USING"PUNTOS 
: #»#»»#";PT:SOUND 1,50,3:FT=FT+1:RETURN 
460 PEN 2:RANDOMIZE TIME:KD=RND:XI=INT(R 
ND*16)+3:XF=INT(RND*16)+3:YI=INT(RND*19+ 
4):YF=INT(RND*19+4) 

470 IF ABS(XF-XI)>12 OR ABS(YF-YI)>14 TH 
EN 460 ELSE IF KD>0.5 THEN 510 
480 IF ABS(XF-XI)<2 OR ABS(YF-YI)<2 OR T 
EST(XI*32-16,408-<YI*16))<>0 THEN 460 
490 FOR K1=XI TO XF STEP SGN(XF-XI):IF T 
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LISTADOS 



EST(K1*32-í6,408-(YI*16)l=0 THEN LOCATE 
K1,YI:PRINT LD$ ELSE K1=99*SGN(XF-XI) 

500 NEXT:RETURN 

'510 EOR K1=YI TO YF STEP SGN(YF-YI):IF T 
EST(XI*32-16, 408-(Kl*16))=0 THEN LOCATE 
XI, K1:PRINT LD$ ELSE K1=99»SGN(YF-YI) 

520 NEXT:RETURN 

'530 PEN 1O:LOCATE 6,1:PRINT'FRUTAS:":FOR 
0=1 TO 6:X0=3:Y0=0*3+3:LOCATE XO,YO:ON 
O GOSUB 650, 660, 670,680, 690, 700: PEN 13:1, 
OCATE 5,YO:PRINT KD$;USING "## ptos.";0* 
10: NEXT: PEN 12:1,OCATE 4, 24 :PRINT'PARA CO 
NTINUAR":LOCATE 4,25:PRINT"PULSA UNA TEC 
I.A" 

540 IF INKEY$="" THEN 540 ELSE CLS:RETUR 
N 

550 PEN 10:LOCATE 6,25:PEINT USING "VIDAS 
: tt#";VD: RETIJRN 

560 DATA 0,24,6,3,15,19,12,21,9,16,8,7 
570 DATA " L A A D E J A",,," 

Es un juego emocionante en el que lo",, 
mas importante es comerse muchos frutos. 

,,,“ Sin embargo, las paredes te impedí 
ran",,hacerlo y tienes que procurar no o 
hocaí,,con ellas. 

580 DATA ,,," Las teclas de movimiento 
de la abeja",,podras elegirlas tu mismo. 

,,." PULSA CUALQUIER TECLA PARA COMENZA 
R" 

590 I.$=INKEY$: IF !.$="“ THEN 590 ELSE RET 
!JRN 

600 SYMBOL 176,8,28,46,111,95,95,46,28:SY 
MBOL 177,8,110,223,191,191,94,56,0:SYMB0 
I, 178, 6,6, 14,30,60,56,28, 12 .'SYMBOL 179,0 
,0,80,90,219,219,90,60:SYMBOL 180,102,24 
,0,0, 0.0, 0.0 

610 SYMBOL 181,24,36,66,129,129,66,36,24 
: SYMBOL 182,0,24,52, 126, 90, 44, 24, 0: SYMBO 
L 183,0,108,190,191,191,95,126,56:SYMBOL 
184,28,62,34,62,34,28,8,O:SYMBOL 185, 0, 
0,0,65,34,28, 42, 54: SYMBOL 186,65,65,93,6 
5,28, 0, 0, 0:SYMBOL 187, 127, 127, 127,0,247, 
247.247,0 

620 TU$=CHR$(22)-*CHR$( 1) : TD$=CHR$< 22)+CH 
R$( 0):A1$=CHR$(184):A2$=CHR$(185):A3$=CH 
R$( 186): L,D$=CHR$( 187) 

630 DIM 0$(15):0$(1)=CHR$(176):0$<2)=CHR 
$(177):0$(3)=CHR$(178):0$(4)=CHR$(179):0 
$<14)=CHR$<180):0$(5)=CHR$(181):0$(15)=C 
HR$(182):0$(6)=CHR$( 183) 

640 FOR Z=1 TO 10:NM$(Z)="AMSTRAD":PT(Z) 

=100:NEXT:RETURN 

650 PEN 5:PRINT 0$<0):RETURN 

660 PEN 3:PRINT 0$(0):RETURN 

670 PEN 11:PRINT 0$<6):RETURN 

680 PEN 6:PRINT 0$(3):RETURN 

690 PEN 8:PRINT 0$<5);TU$:LOCATE X0,Y0:P 

EN 10:PRINT 0$(15);TD$:RETURN 

700 PEN 9:PRINT 0$(4);TU$:LOCATE X0,Y0:P 

EN 7:PRINT 0$<14);TD$:RETURN 

710 LOCATE XA,YA:PRINT" ":LOCATE XA,YA-1 

:PRINT" ":RETURN 






720 PEN 4:LOCATE XA,YA:PRINT A1$:PEN 1:L 
OCATE XA, YA-1:PRINT A2$:PEN 13.LOCATE XA 
,YA:PRINT TU$;A3$;TD$:RETURN 
730 INK 2,2,6:PEN 2:LOCATE XA, YA:PRINT A 
1$:LOCATE XA,YA-1:PRINT A2$:L0CATE XA,YA 
:PRINT TU$;A3$;TDÍ:FOR T=1 TO ÍOO.SOUND 
1.1000,1:S0UND 2,10,1:SOUND 3,3000,1:NEX 
T 

740 IF SQ( 1) 04 THEN 740 
750 INK 2,6:VD=VD-l:GOSUB 550:FOR T=1 TO 
1000:1.$=INKEY$: NEXT: IF VD>0 THEN 150 EL 
SE 760 

760 IF PT<PT(10) THEN 840 ELSE FOR Z=1 T 
O 10:L$=INKEY$:NEXT:NM$="":PEN l:CLS:LOC 
ATE 4,4:PRINT IN$;"TO NOMBRE?":FOR Z=1 T 
O 10 

770 L$=INKEY$:IF L$=CHR$(13) THEN Z=10:G 
OTO 790 

780 IF L$="" THEN 770 ELSE NM$=NM$+L$:LO 
CATE 5tZ,10:PRINT L$ 

790 NEXT 

800 pt(10)=pt:nm$(10)=nm$ 

810 FOR Z=1 TO 10:FOR ZZ=1 TO 9:IF PT(ZZ 
)>=PT(ZZ+1) THEN 830 

820 K=PT(ZZ):PT(ZZ)=PT(ZZ+1):PT(ZZ+1)=K: 
K$=NM$(ZZ):NM$(ZZ)=NM$(ZZ+1):NM$(ZZ+1)=K 
■$ 

830 NEXT:NEXT 

840 CLS'.LOCATE 4, 1:PRINT"PUNTUACIONES: “ : 
FOR Z=1 TO 10: PEN Z+1:L0CATE 1,Z*2 + 1:PRI 
NT NM$(Z):LOCATE 14,Z*2+l:PRINT USING"»# 
####“;PT(Z):NEXT 

850 PEN 12:LOCATE 3,23:PRINT"0 OTRA PART 
IDA":LOCATE 3,24:PRINT"P OTRO PROGRAMA" 
860 L$=INKEY$:IF L$="“ THEN 860 ELSE L$= 
UPPER$(L$):IF L$="0" THEN MODE 1:PEN 1:0 
OTO 60 ELSE IF L$<>"P" THEN 860 
870 MODE 1:BORDER 1:SYMBOL AFTER O:INK O 
,1:INK 1,24:PAPER 0:PEN 1:CLS:PRINT'PREP 
ARADO PARA EL SIGUIENTE PROGRAMA" : RUN" 
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C 

R 

A 

S 

H 



10 ' «< C R A S H »> 

20 ' 

30 SYMBOL AFTER 0:MODE 0:BORDER 0:REST0R 
E 9100:FOR Z=0 TO 11:READ C:INK Z,C:NEXT 
:INK 12,6,26:SFEED INK 3,3:PAPER 0:PEN 1 
• CLS 

40 FOR Z=1 TO 12:PEN Z:LOCATE 6,12¡PRINT 
"CHAS H" : SOUND 1, Z**100, 20: SOUND 2,z*2 
00, 20 

50 IF SQ( 1)04 THEN 50 

60 NEXT:GOSUB 9500:PEN 1:M0DE 1:RESTORE 

9000:FOR Z=1 TO 24:READ f$:LOCATE 1,Z:PR 

INT f$:NEXT:PT=0:VD=5 

70 IF INKEY$="“ THEN 70 

80 MODE 1:GOSUB 8500¿LOCATE 39,23:PRINT 

e$:LOCATE 39,24:PRINT e$ 

90 GOSUB 8900:GOSUB 8800:xx=2:yy=5:tp=22 
:AX=1:G0SUB 8510:' estancia 1 
100 xs=2:ys=3:SS$="D":GOSUB 5000:GOSUB 8 
700 

110 0B=1:GOSUB 1000 

120 CLS:GOSUB 8500:L0CATE 39,10:PRINT E$ 

:LOCATE 39,11¡PRINT E$:G0SUB 8900:G0SUB 
8800:XX=10:YY=19:TP=1:AX=-1:GOSUB 8510:X 
X=10:YY=19:TP=16:AX=1:GOSUB 8510:XX=38:Y 
7~12:TP=23:AX=-1:GOSUB 8510:XS=2:YS=23:S 
S$="D":GOSUB 5000:GOSUB 8700:0B=4:GOSUB 
1000 

130 CLS:GOSUB 85O0:LOCATE 39,10:PRINT E$ 
.'LOCATE 39, 11 :PRINT E$:GOSUB 8900:GOSUB 
8800:XX=2:YY=12:TP=20:AX=1:GOSUB 8 510:XX 
=38:TP=20:YY=12:AX=-1:GOSUB 8510:XS=2:YS 
=10: SS$='‘D" :GOSUB 6000:GOSUB 8700:OB=7:G 
OSUB 1000 

140 CLS:GOSUB 8500:LOCATE 39,23:PRINT E* 

:LOCATE 39,24:PRINT E*:GOSUB 8900:GOSUB 
8800:XX=2:YY=12:TP=20:AX=1:GOSUB 8510:F0 
R Y=20 TO 24:LOCATE 5,Y:PRINT STRING$(29 
, 172):NEXT:XX=34:YY=20:TP=39:AX=1:GOSUB 
8510 

150 XS=2:YS=10:SS$="D“:GOSUB 5000:G0SUB 
8700:0B=10:GOSUB 1000 

160 CLS:GOSUB 8500:LOCATE 39,23:PRINT E$ 

:LOCATE 39,24:PRINT E$:GOSUB 8900:GOSUB 
8800:FOR XX=4 TO 37:IF RND<0.5 THEN LOCA 
TE XX,24:PRINT LD$ 

170 NEXT:XS=2:YS=23:SS$="D”:GOSUB 5000:G 
OSUB 8700:0B=13:GOSUB 1000 
180 CLS:GOSUB 8500:L0CATE 39,22:PRINT "F 
“:LOCATE 39,23:PRINT "I"¡LOCATE 39,24:PR 
INT'N":GOSUB 8900:GOSUB 8800:XX=20:YY=10 
:TP=5:AX=-1¡GOSUB 8510:XX=20:YY=10:TP=35 
:AX=1:GOSUB 6510:XS=2:YS=23:SS$="D":GOSU 
B 5000¡GOSUB 8700:0B=16:FI=1:GOSUB 1000 

999 GOTO 999 

1000 L$=INKEY$:IF L$<>“" THEN L$=UPPER${ 
L$):GOSUB 7000:ELSE 1200 

1010 IF L$="Q" AND T2=l AND T1¡=0 AND ES= 

O THEN GOSUB 5100:XS=XS-1:SS$="I":GOSUB 
5000¡GOTO 1100 

1020 IF L$="W" AND T4=l AND T3=0 AND ES= 

O THEN GOSUB 5100:XS=XS+1:SS$="D"¡GOSUB 
5000¡GOTO 1100 

1030 IF L$="A" AND T2=0 AND T1=0 AND ES= 

O THEN GOSUB 5100:XS=XS-1:YS=YS+1:SS*="I 
GOSUB 5000 ELSE IF L$="A" AND Tl=l AND 
T5=0 AND ES=0 THEN GOSUB 5100:XS=XS-1:Y 
S=YS-1: SS$= “ I: GOSUB 5000 
1035 IF L$="A" THEN 1100 
1040 IF L$=“S" AND T4=0 AND T3=0 AND ES= 

O THEN GOSUB 5100:XS=XS+1:YS=YS+1:SS$="D 
"¡GOSUB 5000 ELSE IF L$=“S" AND T3=l AND 
T6=0 AND ES=0 THEN GOSUB 5100:XS=XS+1:Y 
S=YS-1:SS$="D":GOSUB 5000 
1045 IF L$="S” THEN 1100 
1050 IF L$="0" AND ES=0 THEN GOSUB 7200: 
PRINT CHR$(22);CHR$(1):PEN 2:FOR Y=YS-1 
TO TES STEP -1¡LOCATE XS,Y:PRINT ES$:SOU 
ND 1,1000,1:SOUND 2,1500,1:NEXT:PRINT CH 
R$(22);CHR${0):PEN 1:ES=1 
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1055 IF QES=1 THEN QES=0:ES=0 

1060 IF L$="P" AND YS>3 AND ES=1 THEN E* 

=ES$:GOSUB 5100:E$=CHR*(32):YS=YS-1:GOSU 

B 5000 ELSE IF L$="P" THEN GOSUB 5100:GO 

SUB 7300:GOSUB 5000:ES=0 

1100 K=0:FOR Z=1 TO 7:IF XS=XP(Z> AND (Y 

S=YP(Z) OR YS+1=YP(Z)) THEN K=Z:Z=9 

1110 NEXT:IF K<>0 THEN LOCATE XP(K),YP(K 

):PRINT E$:GOSUB 5000:KP(K)=0:YP(K)=0:PT 

=PT+100:GOSUB 8600 

1120 IF KOO AND ES=1 THEN GOSUB 5100:GO 

SUB 7300:GOSUB 5000:ES=0 

1150 IF XS=39 THEN 3000 

1200 PEN 3:IF X0=0 THEN XO=INT(RND*37+2) 

:YO=4:0=INT(RND(TIME)*3+0B):IF X0=XP<1) 
OR XO-XP(2) OR X0=XP<3) OR XO=XP<4) OR X 
0=XP(5) OR XO=XP(6) OR XO=XP(7) THEN XO= 
0:GOTO 1200 ELSE LOCATE XO,YO:PRINT 0$(0 
) 

1210 LOCATE XO,YO:PRINT E$:YO=YO+2:T=TES 
T(XO*16-8,400-(YO*16-12)):IF T=1 AND XO< 
>XS OR YO>24 THEN XO=0:GOTO 1000 
1220 LOCATE XO,YO:PRINT 0$(0):IF XO=XS A 
ND (YO=YS OR YO=YS+l) JHEN 2000 
1230 PEN 1:GOTO 1000 

2000 FOR Z=500 TO 1000 STEP 10:SOUND 1,Z 
,2:SOUND 2,Z+100,2:NEXT 
2005 IF SQ( 1) 04 THEN 2005 
2010 SOUND 1,1000,5 
2015 VD=VD~1:IF VD<1 THEN 2100 
2020 LOCATE 26,1:PRINT STRING$(13,32):GO 
SUB 8900:GOSUB 5000:X0=0:GOTO 1000 
2100 LOCATE 7, 12:PRINT"SE TE TERMINARON 
LAS VIDAS":FOR Z=1 TO 3000:NEXT 
2110 CLS:PEN 1:L0CATE 3,5:PRINT"HAS OBTE 
NIDO";PT;"PUNTOS":LOCATE 3, 10:PRINT"PARA 
OTRA PARTIDA PULSA LA TECLA P":LOCATE 3 
,12:PRINT"PARA OTRO PROGRAMA PULSA LA TE 
CLA F" 

2120 I,$=INKEY$: IF L$=" " THEN 2120 ELSE L 
$=UPPER$(L$):IF L$="P“ THEN RUN ELSE IF 
I,$="F" THEN 10000 
2130 GOTO 2110 

3000 X0=0:INK 1,26,6:FOR Z=300 TO 10 STE 
P -10:SOUND 1,Z,2:SOUND 2,Z+10,2:NEXT:IN 
K 1,26:PEN 3 

3010 IF SQ( 1)04 THEN 3010 
3015 IF FloO THEN 3500 

3020 LOCATE 1,25:PRINT"PASAMOS A LA SIGU 
IENTE ESTANCIA (S/N)" 

3030 L$=INKEY$:IF L$="" THEN 3030 ELSE L 
$=UPPER$(L$):IF L$="N" THEN LOCATE 1,25: 
PEN 1:PRINT STRING$(39,172)¡GOTO 1000 
3040 IF L$="S" THEN RETURN 
3050 GOTO 3030 

3500 LOCATE 12,25:PRINT'TIN DE LA AVENTU 
RA":FOR T=1 TO 3000:NEXT:GOTO 2110 
5000 LOCATE xs,ys:IF ss$="D" THEN PRINT 
SD1$ ELSE PRINT SI1$ 

5010 LOCATE XS,YS+1:IF SS$="D" THEN PRIN 
T SD2$ ELSE PRINT SI2$ 

5020 RETURN 

5100 PEN 2:LOCATE xs,yB:PRINT E*:LOCATE 
XS,YS+1:PRINT E$:SOUND 1,100,1:PEN 1:RET 
URN 

7000 TX=XS-l:TY=YS+l:GOSUB 7100:T1=T:TY= 
YS+2:GOSUB 7100:T2=T:TX=XS+1:GOSUB 7100: 
T4=T:TY=YS+1:GOSUB 7100:T3=T:TY=YS:GOSUB 
7100:T6 =T:TX=XS-1:GOSUB 7100:T5=T:RETUR 
N 

7100 T=TEST(TX*16-8, 400-(TY*16-12)):RETO 
RN 

7200 K=0:FOR Z=1 TO 7:IF XS=XP(Z) THEN K 
=Z:Z=9 

7210 NEXT:IF Z=8 THEN TES=3 ELSE TES=YP( 
K) + 1 

7230 IF YS-YP(K)=1 THEN LOCATE XP<K),YP( 
K):PRINT E$:XP(K)=0:YP(K)=0:QES=1:PT=PT+ 
100¡GOSUB 8800 
7240 RETURN 

7300 FOR Y=3 TO 25:IF TEST(XS*16-8, 400-( 


Y*16-12))=l THEN J=Y:Y=99 

7310 NEXT:YS=J-2:RETURN 

8500 PEN 1:LOCATE 1,2:PRINT STRING$(39,1 

72) :LOCATE 1,25:PRINT STRING$(39, 172):FO 
R y=2 TO 25¡LOCATE 1,y:PRINT Id*¡LOCATE 
39,y¡PRINT ld$:NEXT:RETURN 

8510 FOR y=yy TO 24¡LOCATE xx,y¡PRINT Id 
$:NEXT:yy=yy+l:xx=xx+AX:IF xxotp THEN 8 
510 ELSE RETURN 
8700 FOR Z=1 TO 7 

6710 XP=INT(RND*37+2.5):YP=INT(RND*21+3. 
5):IF TEST(XP*16-8,400-((YP+1)*16-12))<> 
O THEN 8710 

8715 FOR Y=1 TO Z:IF XP=XP(Y) THEN Y=99 

8717 NEXT:IF Y=100 THEN 8710 

8720 PEN 2:LOCATE XP,YP:PRINT PR$:XP(Z)= 

XP:YP(Z)=YP:NEXT:PEN 1:RETURN 

8800 PEN 3:SOUND 1,10,10,15:SOUND 2,100, 

10:LOCATE 10,1¡PRINT USING"####";pt:PEN 

1:RETURN 

8900 PEN 3:LOCATE 3,1¡PRINT"PUNTOS:“:LOC 
ATE 20,1:PRINT"VIDAS:":FOR Z=1 TO VD:LOC 
ATE 26+Z*2,1:PRINT Sil*:NEXT:PEN 1:RETUR 

9000 DATA " C R A S H",,“ 

Es un juego en el que hay que tener",ne 
rvios de acero para sobrevivir.,,“ El J 
uego esta dividido en 6 estancias",en la 
s que debes recoger las perlas.," Como 
obstáculos tendrás todo tipo de” 

9010 DATA objetos que caeran a gran velo 
cidad,desde cualquier punto.,” El movim 
iento en horizontal se realiza",oon las 
teclas Q (a la izquierda) y W,(a la dere 
cha); subir o bajar escalones,con las te 
cías A (a la izquierda) y S,(a la derech 
a). 

9020 DATA" Para subir a por las perlas 
debes",tender una escalera con la tecla 
0 y,subir por ella con la tecla P.,," E 
1 juego termina si recorres todas las",e 
stancias o acabas con tus cinco vidas.," 
QUE TENGAS MUCHA SUERTE!!!". 

9030 DATA " PULSA CUALQUIER TECLA PARA 
COMENZAR" 

9100 DATA 0,26,24,6,8,18,2,20,13,15,12,7 
9500 SYMBOL 130,112,176,112,32,120,204,2 
04, 204:SYMBOL 131,220,120,48,48,48,48,11 
2,240:SYMBOL 132,112,104,112,32,112,200, 
204, 204¡SYMBOL 133,236, 120, 48,48, 48, 48, 5 
6,60:SI1$=CHR$<130):SI2$=CHR$(131):SD1$= 
CHR$(132):SD2$=CHR$(133) 

9510 SYMBOL 150,90,205,40,16,126,126,60, 
24:SYMBOL 161,149,149,86,100,126,126,60, 
24: SYMBOL 152,36,90,36,36,126, 128,60,24: 
SYMBOL 153,128,130,131,187,254,126,70,34 
¡SYMBOL 154, 0,0, 0, 58, 127, 127, 168, 112:SYM 
BOL 155,0,0,0,0,48,123,255,72 
9520 SYMBOL 156,0,0,0,255,255,126,60,60: 
SYMBOL 157,63,127,248,152,24,24,24,24:SY 
MBOL 158,24,60,36,24,80,102,102,102:SYMB 
OL 169, 1,1,57,69,255,137,249,255¡SYMBOL 
160,255,253,135,133,135, 133, 255,66:SYMBO 
L 161, 0, 0, 256, 171, 213, 171,213, 256 
9530 SYMBOL 162,0, 0, 0, 0, 0, 3, 252,112:SYMB 
OL 163,0,0, 0,0, 248, 248, 255, 248¡SYMBOL 16 
4,254,127,127,126,60,60,126,126:SYMBOL 1 
65,16,40,168,254,239,40,40,16:SYMBOL 166 
, 31,4, 14, 153,250, 188,37,126:SYMBOL 167,6 
0, 126, 126, 126,36,36,24,24 
9540 SYt&OL 170,147,84,165,40,139,100,33 
,149:EX$=CHR$(170):DIM 0$(18):FOR Z=1 TO 
18:0$(Z)=CHR$(149+Z):NEXT 
9550 SYMBOL 171,255,195,129,129,255, 195, 
129,129¡SYMBOL 172,127,127,127,0,247,247 
,247,0:SYMBOL 173,66,36.24,231,24,36,66. 
0:es*=CHR$<171):ld$=CHR$(172):pr$=CHR*(1 

73) :e$=CHR$(32)¡RETURN 

10000 BORDER 1:INK 0,1¡PAPER 0:PEN 1:CLS 
:PRINT"PREPARADO PARA EL SIGUIENTE PROGR 
AMA":RUN"" 
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10 REM == DADOS == 

20 ’ 

30 INK 0,1:INK 1,24:INK 2,6:INK 3.26:INK 
6, 18,6:PEN '1: PAPER 0: BORDER 1: CLS 
40 ENV 1, 10, 4, 3,8,-4, 3.3,-1, 10,6,5,2,4,- 

5, 3 

50 MODE 1:RESTORE 1070:F0R 1=1 TO 17:REA 
D X$:l,OCATE 1,I:PRINT X$:NEXT I 
60 X$=INKEY$:IF X$="“ THEN 60 
70 MODE O:SYMBOL 250,255,255,240.248,220 
. 206. 199, 195:SYMBOL 251.255,255,15,31,59 
,115,227, 195:SYMBOL 252,195,199,206,220, 
248,240,255,255:SYMBOL 253,195,227,115,5 
9,31,15.255,255 

80 WINDOW #1,1,10,2,18:WINDOW «2,1,20,20 
,24:PAPER #1,0:WIND0W «3,13,20,14,19:PEN 
«1,1:PAPER «2,3:PEN #2,2:CLS#1:PAPER #3 
, O 

90 CLS: INPUT "Cual es 1.U nombre ";n$ 

100 IF LEN(n$)>9 THEN 90 ELSE CLS 
110 PEN 2:LOCATE 12,4:PRINT N$:LOCATE 12 
.6:PRINT O:LOCATE 12,8:PRINT"AMSTRAD":LO 
CATE 12,10:PRINT O 

120 su=0:x=RND:IF x<0.5 THEN am=0:GOTO 9 
40 

130 am=l:GOTO 880 

140 SOUND 1,956, 30, 7, , , 1: SOUND 1,38,40,6 

:TF os=l THEN RESTORE 1000 

150 IF cs=2 THEN RESTORE 1010 

160 IF cs=3 THEN RESTORE 1020 

170 IF cb=4 THEN RESTORE 1030 

180 IF cs=5 THEN RESTORE 1040 

190 IF cs=6 THEN RESTORE 1050 

200 FOR i=0 TO 5:READ x$:d$(i)=x$:NEXT i 

210 LOCATE #1,2,2:PRINT #1,"SUMA:“;su:LO 

CATE #1,2,4:PRINT #1,CHR$<250);:FOR i=l 

TO 7:PRINT #1,CHR$(208);:NEXT i:PRINT #1 

,CHR$<251) 

220 LOCATE #1,2,5:PRINT #1,CHK$(211);CHR 
$(205);" “ ;d$(O); " “; CHR$(204);CHR$(20 

9) 

230 IX3CATE #1,2,6:PRINT #1, CHR$(211); " " 

;CHR$(205);" ";CHR$(204);" ";CHR$(209) 

240 LOCATE #1,2,7:PRINT #1,CHR$(211);" 

"; CHR$(135);CHR$(131);CHR$(139);" ";CHR 

$(209) 

250 LOCATE #1,2,8:PRINT #1,CHR$(211);d$( 
1);" ";CHR$(133);d$(2);CHR$( 138); " “;d$( 
3); CIIR$( 209) 

260 LOCATE #1,2,9:PRINT #1,CHR$(211);" 

";CHR$<141);CHR$(140);CHR$(142 >;" ";CHR 

$(209) 

270 LOCATE #1,2,10:PRINT #1, CHR$(211) ; " 

"; CIIR$( 204); " " ; CHR$( 205); " ";CHR$(209 

) 

280 LOCATE #1,2.11:PRINT #1.CHR$(211);CH 
R$< 204);" ";d$(4);" “;CHR$(205);CHR$(2 

09) 

290 LOCATE #1,2,12:PRINT #1,CHR$(252);:F 
OR i=1 TO 7:PRINT #1,CHR$(210);:NEXT i:P 
RINT #1,CHR$(253) 

300 LOCATE #1,5, 15:PRINT #1, CHR$( 150);CH 
R$(154);CHR$(156) 



310 LOCATE #1,5,16:PRINT #1,CHR$(149);d$ 

(5);CHR$(149) 

320 LOCATE #1,5,17:PRINT #1,CHR$(147);CH 
R$(154);CHR$(153) 

330 KETURN 

340 CLS#2:LOCATE #2,4,3:PRINT#2,“COJO LA 
CARA:“;CE:FOR 1=1 TO 3000:NEXT I:RETURN 
350 IF su<21 THEN GOTO 940 
360 IF su=21 THEN ga=ga+1:LOCATE 12,10:P 
RINT ga:x$="PERDISTE":GOTO 410 
370 IF SU>21 THEN gu=gu+l:LOCATE 12,6:PR 
INT gu:x$="GANASTE":GOTO 410 
380 IF su<21 THEN GOTO 880 
390 IF su>21 THEN ga=ga+l:LOCATE 12,10:P 
RINT ga:x$="PERDISTE":GOTO 410 
400 IF SU=21 THEN gu=gu+l:LOCATE 12,6:PR 
INT gu:x$="GANASTE":GOTO 410 
410 PEN #3,6:FOR 1=1 TO 6:LOCATE #3,1,1: 
PRINT#3,X$:NEXT I:RESTORE 1060:FOR 1=1 T 
O 16:READ J:SOUND 1,J,25,7,1,,1:NEXT I:F 
OR 1=1 TO 1500:NEXT 

420 PEN #3, 3: CLS #3-.LOCATE #3, 1,2:PRINT 
#3,"1:OTRA":LOCATE #3,1,5:PRINT #3,“2:FI 
N" 

430 D$=INKEY$:IF D$="l" THEN 440 ELSE IF 
D$=“2" THEN 990 ELSE 430 
440 CLS #3:SU=0:IF AM=1 THEN AM=0:GOTO 9 
30 

450 IF AM=0 THEN AM=1:G0T0 880 
460 CLS #2:IF CS=1 OR CS=6 THEN X$="2 3 

4 5" ELSE IF CS=2 OR CS=5 THEN X$=“l 

346" ELSE X$="l 256" 

470 L0CATE#2,4,2:PRINT#2,"QUE CARA COJES 
":L0CATE#2,6,4:PRINT#2, X$ 
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480 D$=INKEY$:IF D$="" THEN 480 ELSE IF 
D$OMID$(X$, 1,1) AND D$OMID$(X$, 4, 1) AN 
D D$OMID$(X$, 7, 1) AND D$OMID$(X$, 10,1) 
THEN 480 

490 ce=VAL(d$>:RETURN 


500 

510 

IF os=l 
RETURN 

OR 

os=6 

THEN 

06 = 2 

ELSE 

ce=l 

520 

530 

IF cs=2 
RETURN 

OR 

„ps=5 

THEN 

ce=l 

ELSE 

ce=2 

540 

550 

IF cs=3 
RETURN 

OR 

cs=4 

THEN 

00=1 

ELSE 

oo=3 

560 

570 

IF cs=3 
RETURN 

OR 

es=4 

THEN 

ce=2 

ELSE 

ce=4 

580 

590 

IF cs=2 
RETURN 

OR 

cs=5 

THEN 

ee=2 

ELSE 

co=5 

600 

610 

IF cs=l 
RETURN 

OR 

os=6 

THEN 

ee=3 

ELSE 

oe=6 

620 

630 

IF cs=2 
RETURN 

OR 

cs=5 

THEN 

ce=3 

ELSE 

ce=2 

640 

650 

IF cs=3 
RETURN 

OR 

cs=4 

THEN 

ce=l 

El,SE 

ce=4 

660 

670 

IF cs=l 
RETURN 

OR 

co=6 

THEN 

ce=2 

ELSE 

ce=l 

680 

690 

IF cs=2 
RETURN 

OR 

cs=5 

THEN 

ce = l 

ELSE 

oe=5 

700 

710 

IF es=2 
RETURN 

OR 

es=5 

THEN 

co=3 

ELSE 

co=2 

720 

730 

IF cs=3 
RETURN 

OR 

cs=4 

THEN 

ce=l 

ELSE 

ce=3 

740 

750 

IF cs=3 
RETURN 

OR 

es=4 

THEN 

ee=l 

ELSE 

00=4 

760 

770 

IF cs=2 
RETURN 

OR 

cs=5 

THEN 

ce=l 

ELSE 

ce=5 

780 

790 

IF es=l 
RETURN 

OR 

cb=6 

THEN 

ce=3 

ELSE 

c©=6 

800 

810 

IF cs=2 
RETURN 

OR 

cs=5 

THEN 

ce=3 

ELSE 

ce=2 

820 

830 

IF cs=l 
RETURN 

OR 

es=2 

THEN 

ce=4 

ELSE 

ce=l 

840 

IF cs=l 

THEN ce= 

=24 ELSE ce=l 



850 RETURN 

860 ce=l:RETURN 

870 ce=2:RETURN 

880 CLS #1:IF BuOO THEN 910 

890 x=RND:IF x>0. 5 THEN ce=3 ELSE oe=4 

900 GOTO 920 

910 ON SU GOSUB 870,860,840,820,800,780, 
760, 740, 720, 700, 680, 660, 640, 620, 600, 580, 
560,540,520,500 

920 cs=ce:su=su+cs:GOSUB 140:GOSUB 340:G 
OTO 350 
930 CLS #1 

940 IF suOO THEN 970 

950 CLS #2:LOCATE «2,4,2:PRINTF2,"QUE CA 
RA COJES":LOCATE #2,3,4:PRINT #2,"1 2 

3 4 5 6" 




960 x$=INKEY$:IF x$<''l” OR x$>“6" THEN 9 

60 ELSE ce=VAL< x$):GOTO 980 

970 GOSUB 460:CLS #1:CLS #2 

980 cs=ce:su=su+cs:GOSUB 140:F0R 1=1 TO 

2000:NEXT I:GOTO 380 

990 MODE 1:RUN" 

1000 DATA "3", "2", "1", “5", “4", "6" 

1010 DATA “3","6","2”,"1","4","5" 

1020 DATA "6'', "2", ''3“, "5", "1", "4" 

1030 DATA "1", "2", "4", "5", “6", "3” 

1040 DATA "4", "6", "5", “1“, "3", "2" 

1050 DATA "4”,"2","6”,"5","3","1" 

1060 DATA 358,319,284,284,284,253,284,35 
8,426,426,379,358,358, 379, 426,379 
1070 DATA " DADO 21”, , E 

1 objetivo del presente juego es sumar", 
"21 puntos non el dado que aparece en la 
","pantalla, por turno se ha de ir volte 
an-*",”do el dado sobre una de las cuatro 
oaras" 

1080 DATA"laterales sumándose la nueva c 
ara supe-", "rior'. ", , " El que logre sumar 
21 gana, el que se", "pase de 21 pierde. 
".. " PULSA TECLA PARA COMENZAR" 
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CIRCUITOS- 

-ELECTRICOS 



10 ' << CIRCUITOS ELECTRICOS >> 

20 ' 

30 BORDER 1:MODE 0:INK 0,1:INK 1,26,6:SP 
EED INK 5,5:INK 2,24:INK 3,6:PAPER 0:PEN 
1: CL,S: LOCATE 6, 8 : PRINT'CIRCUITOS" : LOCAT 
E 5,14:PRINT"ELECTRICOS":FOR T=1 TO 2000 
:NEXT:INK 1,26:MODE 1 

40 GOSUB 9100:RESTORE 9O00:F0R Z=1‘T0 25 
:READ E$:LOCATE 1,Z:PRINT E$:SOUND 1,100 
,2:NEXT:SOUND 1,200,5:GOSUB 9110 
50 IF INKEY$="" TREN 50 

60 MODE 0:INK 4,8:INK 5,18:INK 6,2:INK 7 
, 20: INK. 8,13: INK 9,15:INK 10,12:INK 11,7 
:PEN 1:CLS 

65 D1M A(24,2),C(25),E(25) 

70 LOCATE 2,1:PRINT"CIRCUITO ELECTRICO" 
80 PEN 2:FOR Y=3 TO 18 STEP 5:FOR X=2 TO 
17:LOCATE X,Y:PRINT CH$:NEXT:NEXT 
90 FOR X=2 TO 17 STEP 15:F0R Y=3 TO 18:1, 
OCATE X, Y:PRINT CV$:NEXT:NEXT 
100 PEN 9:CC=65:F0R Y=3 TO 18 STEP 5:FOR 
X=2 TO 17 STEP 5:LOCATE X,Y:PRINT CHR$< 
CC):CC=CC+1:NEXT:NEXT 
110 pl$="N ':sl$="O":pl=78:s1=79 
180 GOSUB 9200:GOSUB 2000:IF K=100 TREN 
150 ELSE E(S)=5:NP=S:GOSUB 3000 
190 LOCATE 1,24:INPUT'CUANTAS BOMBILLAS" 
; NB 

200 GOSUB 9200: IF NB<0 OR NB>12 OR NBOl 
NT(NB) THEN 190 
210 GOSUB 9200 
220 FOR Z=1 TO NB 

230 LOCATE 1,24:INPUT"DESDE LETRA ";PL$: 
PI,$=UPPER$(PL$) : PL=ASC(PL$) : IF PL<85 OR 
PL>80 OR LEN(PL$)>1 THEN GOSUB 9200:GOTO 
230 


240 LOCATE 1,25:INPUT "HASTA LETRA ";SL$: 
SL$=UPPER$(SL$):SL=ASC(SL$) : IF SL<65 OR 
SL>80 OR 1,EN{SL$) > 1 OR PL>SL THEN GOSUB 
9200:GOTO 230 

250 GOSUB 9200:GOSUB 2000:IF K=100 THEN 
230 ELSE E(S)=1:GOSUB 3100:NEXT 
260 LOCATE 1,24:INPUT"CUANTOS TIMBRES";N 
T 

270 GOSUB 9200: IF NT<0 OR NT>12 OR NTOI 
NT(NT) THEN 260 
280 GOSUB 9200 
290 FOR Z=1 TO NT 

300 LOCATE 1,24:INPUT"DESDE LETRA ";PL$: 
PL$=UPPER$(PL$):PL=ASC(PL$):IF PL<65 OR 
PL>80 OR LEN(PI,$) > 1 THEN GOSUB 9200:GOTO 
300 

310 LOCATE 1,25: INPUT 'HASTA LETRA ";SL$: 
SI,$=UPPER*(SL$) :SL=ASC{SL$) : IF SL<65 OR 
SI>>80 OR LEN(SL$) > 1 OR PL>SL TREN GOSUB 
9200:GOTO 300 

320 GOSUB 8200:GOSUB 2000:IF K=100 THEN 
300 ELSE E(S)=2:GOSUB 3200:NEXT 
330 LOCATE 1,24:PRINT'CUANTOS":INPUT"INT 
ERRUPTORES“ ; NI 

340 GOSUB 9200: IF NI<0 OR NI>12 OR NIOl 
NT(NI) THEN 330 
350 GOSUB 9200 
360 FOR Z=1 TO NI 

370 LOCATE 1,24:INPUT"DESDE LETRA ";PL$: 
PL,$=UPPER$(PL$) :PL=ASC(PL$): IF PL<65 OR 
PL>80 OR LEN(PL,$)> 1 THEN GOSUB 9200:G0T0 
370 

380 LOCATE 1,25:INPUT"HASTA LETRA “;SL$: 
SL$=UPPER$TSL$):SL=ASC(SL$>:IF SL<65 OR 
SI,>80 OR LEN ( SL$) > 1 OR PL>SI, THEN GOSUB 
9200:GOTO 370 

390 GOSUB 9200:GOSUB 2000:IF K=100 THEN 

370 ELSE E(S)=3:GOSUB 3300 

400 NEXT:PEN 2:RESTORE 9400:FOR Y=3 TO 1 

8 STEP 5:FOR X=2 TO 17 STEP 5:READ A:LOC 

ATE X,Y:PRINT CHR$(A):NEXT:NEXT 

410 GOSUB 2500 

420 I,$=INKEY$: IF L$='"' THEN 420 

430 L$=IJPPER$(L$): SOUND 1,10,3 

440 IF L$=”A" THEN 10000 

450 IF L$="0” THEN ERASE A,C,E:GOTO 80 

460 IF L$=''F" THEN 4000 

470 IF L$="I" THEN 5000 

480 GOTO 420 

2000 IF PL<69 THEN R=64:YY=2 ELSE IF PI,< 
73 THEN R=68:YY=7 ELSE IF PL<77 THEN R=7 
2:YY=12 ELSE R=76:YY=17 
2010 XX=(PL-R)*5-1:IF ABS(PL-SL)<>1 THEN 
XX=XX-2:YY=YY+3 
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2020 S=(XX+1)/5:IF YY=2 THEN S=S ELSE IF 
YY*7 THEN S=S+3 ELSE IF YY=12 THEN S=S+ 
6 ELSE IF YY=17 TIIEN S=S+9 ELSE 2040 
2030 GOTO 2045 

2040 S=(XX+3)/5+12:IF YY=10 THEN S=S+4 E 
LSE IF YY=15 THEN S=S+6 
2045 IF S=14 OR S=15 OR S=18 OR 5=19 OR 
S=22 OR S=23 THEN K=100:G0T0 2070 
2050 K=0:IF A(S,1)<>0 AND A(S,2)<>0 THEN 
K=100 

2060 IF K=100 THEN 2070 ELSE A(S, 1)=XX:A 

(5.2) =YY 
2070 RETURN 

2500 PEN 2:LOCATE 1,21:PRINT"F PONER EN 
MARCHA'': LOCATE 1, 22 : PRINT" I ABRIR/CERRAR 
”:LOCATE 3.23:PRINT"INTERRUPTORES":LOCAT 
E 1,24:PRINT"0 OTRO CIRCUITO":LOCATE 1,2 
5:PRINT"A ABANDONAR":RETURN 
2510 FOR Z=20 TO 25:LOCATE 1,Z:PRINT STR 
ING$<19.32):NEXT:RETURN 

3000 S01JND 1, 100, 5 : PEN 6 : LOCATE A(S,1),A 

(5.2) ti¡PRINT P1$:L0CATE A(S,1),A(S,2)+2 
:PRINT P2$:PEN 1:RETURN 

3045 IF S=14 OR S=15 OR S=18 OR S=19 OR 
S=22 OR S=23 THEN 2070 

3100 PEN 8:LOCATE A(S,1),A(S,2):PRINT BA 
$:PEN 11:LOCATE A(S, 1),A(S,2)+ 1:PRINT B$ 

:PEN l:RETURN 

3150 PEN 1:1,OCATE A< S, 1), A( S, 2) : PRINT BE 
$:PEN 11:LOCATE A(S,1),A(S,2)+1:PRINT B$ 

:PEN 1:RETURN 

3200 PEN 4:LOCATE A<S,1),A<S, 2):PRINT TA 
$:PEN 5:LOCATE A<S,1),A(S,2)+1:PRINT T$: 
PEN 1:RETURN 

3250 PEN 7:SOUND 1,10,1:LOCATE A(S, 1),A( 
S,2):PRINT TE$:PEN 5:SOUND 1,10,1:LOCATE 
A(S,1), A( S, 2) +1:PRINT T$:PEN 1:RETURN 
3300 PEN 3:LOCATE A(S,1),A(S,2)+1:IF SCI 
3 THEN PRINT IH$:1,OCATE A< S, 1 )-l, A( S, 2): 
PRINT S ELSE PRINT IV$:LOCATE A(S,1)+1,A 

(5.2) +l:PRINT RIGHT$<STR$<S),ABSÍS>9)+1) 
3310 PEN 1:RETURN 

3350 PEN 3:LOCATE A(S,1),A(S,2)+l:IF S<1 
3 THEN PRINT CH$ ELSE PRINT CV$ 

3360 PEN 1:RETURN 

4000 GOSUB 2510:LOCATE 1,24:PRINT"PULSA 
N PARA PARAR"¡LOCATE 5,25:PRINT"EL CIRCU 
ITO" 

4005 IF E(21)=3 OR E(10)=3 OR E(12)=3 OR 
E(24)=3 THEN RESTORE 9700:FOR Z=1 TO 18 
:READ X:C(X)=0:NEXT:GOTO 4070 
4010 IF E(17)=3 OR E(20)=3 THEN RESTORE 
9710:FOR Z=J TO 10:READ X:C(X)=0:NEXT:GO 
TO 4030 

4015 IF E(13)=3 OR E(l)=3 OR E(2)=3 OR E 
(3)=3 OR E(16)=3 THEN T=0 ELSE T=1 
4017 RESTORE 9720:F0R Z=1 TO 5:READ X:C( 
X)=T:NEXT 

4020 IF E(4)=3 OR E< 5 > =3 OR E(6)=3 THEN 
T = 0 ELSE T—1 

4022 FOR Z=4 TO 6:C(Z)=T:NEXT 

4025 IF C(1)=0 AND C(4)=0 THEN T=0 ELSE 

T-l 

4027 C(17)=T:C(20)=T 

4030 IF E(7)=3 OR E(8)=3 OR E(9)=3 THEN 
T=0 ELSE T=1 

4033 FOR Z=7 TO 9:C(Z)=T:NEXT 

4040 IF C(17) =1 OR C(7)=1 THEN T=1 ELSE 

T=0 

4050 RESTORE 9730:FOR Z=1 TO 4:READ X:C< 
X)=T:NEXT 

4070 I.$“INKEY$: IF I.$="N" OR L$="n" THEN 
4200 

4080 RESTORE 9700:FOR Z=1 TO 18:READ S 
4090 IF C<S)=0 THEN 4130 


4100 IF E(S)=1 THEN GOSUB 3150 

4120 IF E(S)=2 THEN GOSUB 3250:SOUND 1,1 

00,5,15¡GOSUB 3200 

4130 NEXT 

4140 GOTO 4070 

4200 RESTORE 9700:FOR Z=1 TO 18:READ S:C 
(5)=0:IF E(S)=1 THEN GOSUB 3100 ELSE IF 
E(S)=2 THEN GOSUB 3200 

4210 NEXT:GOSUB 2510:G0SUB 2500:GOT0 420 
5000 PEN 2¡GOSUB 2510¡LOCATE 1.24:INPUT" 
QUE INTERRUPTOR";IN:IF IN<0 OR IN>24 OR 
INOINTUN) THEN GOSUB 25O0:G0TO 420 
5010 S=IN:IF E(S)=3 THEN GOSUB 3350:E(S) 
=4 ELSE IF E(f.)=4 THEN GOSUB 3300:E(S)=3 

5020 GOSUB 9200:GOSUB 2500:GOTO 420 
9000 DATA " CIRCUITOS ELECTRICOS EN 
SERIE",,,," Con esto programa podras di 
sedar,a tu","gusto, circuitos eléctricos 
en los que",se combinan distintos compo 
nenies corno, "son: PILAS, BOMBILLAS, TIMB 
RES E",INTERRUPTORES. 

9010 DATA ,," Todos estos componentes p 
odran ir",colocados en una parrilla con 
24 posi-,ciones distintas.,," El objeti 
vo del programa es que por",medio del Ju 
ego se puedan aprender las,bases del fun 
cioriamiento de la electri-, oidad. 

9020 DATA ,," Si quieres abandonar el p 
rograma a“,medias pulsa la tecla A. , ,“ 
PULSA UNA TECLA PARA CONTINUAR" 

9100 SYMBOL AFTER 32:SYMBOL 64,118,216,0 
,216,102, 102,102,0:RETURN 
9110 SYMBOL 190,7,24,35,36,34, 17,9,9 : SYM 
BOL 191,224,24,196,36,68,136,144,144:SYM 
BOL 192, 31, 15, 7, 15,3, 7, 1, 1:SYMBOL 193,24 
8, 240,224, 240,192,224,128,128:SYMBOL 194 
, 7, 31,63,63,63,31,15,15. SYMBOL 195,224,1 
84, 220, 220, 220,184, 240, 240 
9120 SYMBOL 196,7,7,7,7,7,7,15,15:SYMBOL 
197,224,224,224,224,224,224,240, 240: SYM 
BOL 198, 3. 12, 17,33,32, 17, 14, 7 : SYMBOL 199 
,240,56,204,198,134,12,56,240:SYMBOL 200 
,35,76,147,162,160,145,76,39:SYMBOL 201, 
244,58,173,230,134,13,58,244 
9130 SYMBOL 202,12,28,48,227,195, 0, 0, O: S 
YMBOL 203, 24,24, 192,192,96,48,24,24:SYMB 
OI, 204,0,0,0,232,208,32, 127, 125:SYMBOL 2 
05,121,125,125,127,125,126,127,127:SYMBO 
L 206,0,64,32,23,11,4,254,62:SYMBOL 207, 
222,190,30,254,222,190,126,254 
9140 B$=CHR$(192)+CHR$(193):BA$=CHR$(190 
)-*CHR$( 191) :BE$=CHR$< 194)+CHR$( 195) : T$=C 
HR$(196)+CHR$(197):TA$=CHR$(198)+CHR$(19 
9):TE$=CHR$(200)+CHR$(201):IH$=CHR$(202) 

:IV$=CHR$(203):P1$=CHR$(204)+CHR$(206): 
P2$=CHR$(205)+CHR${207):E$=CHR$(32):EE$= 
E$<-E$ 

9150 CV$=CHR$(149):CH$=CHR$(154):VD$=CHR 
$(151):VI$=CHR$(157):HB$=CHRS<158):HSÍ=C 
HR$(155):CH$=CHR$(159):SD$=CHR$(150):SI$ 
=CHR$(156):BI$=CHR$(153):BD$=CHR$(147):R 
ETURN 

9200 LOCATE 1,24:PRINT STRING${20,32):LO 
CATE 1,25:PRINT STRING$(19, 32):RETURN 
9400 DATA 150,3 54,154,156,151,154,154,15 
7, 151, 154, 154, 157, 147, 154, 154, 153 
9700 DATA 1,2,3,4,5,6,7,6,9,10,11,12,13, 
16, 17,20,21,24 

9710 DATA 17,13,1,2,3,4,5,6,16,20 
9720 DATA 13,1,2,3,16 
9730 DATA 21,10,12,24 

10000 MODE 1:PEN 1:CLS:SYMBOL AFTER 31.P 
RINT"PREPARADO PARA EL SIGUIENTE PROGRAM 
A”:RUN"" 
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"GRAFICAS- 

-LINEALES" 


10 • GRAFICAS LINEAI.ES 
20 ' 

30 MODE 1:BORDER 1:INK O,X:INK 1,26:INK 
2,24:INK 3,6:PAPER 0:PEN 1:CLS 
40 RESTORE 780:F0R Z = 1 TO 22: READ E$:I,OC 
ATE 1, Z : PRINT E$: NEXT: S01JND 1,100,10 
50 IF INKEYi-” “ TIIEN 50 
60 CLS:INPUT"SI VAS A INTRODUCIR LOS DAT 
OS POR MEDIO DEL TECLADO INTRODUCE T, SI 
LOS TIENES ALMACENADOS EN CASSETTE INT 
RODOCE C";M$ 

70 M$=UPPER$(M$):IF M$=”C" TIIEN GOSUB 69 
O:CLS:GOTO 450 ELSE IF M$<>"T" THEN CLS: 
GOTO 60 

80 CLS:LOCATE 2,10:LINE INPUT "NOMBRE DE 
LA VARIABLE A REPRESENTAR EN EL EJE X “ 
;V]$:CLS:LOCATE 2,10:LINE INPUT "NOMBRE 
DE LA VARIABLE A REPRESENTAR EN EL EJE Y 
“ * V2$ 

Do’lF LEN<V1$)=0 OR LEN(V2$)=0 THEN SOUN 
D 1,500,10:GOTO 80 

100 LOCATE 1,12:PRINT"LA INTRODUCCION DE 
LOS DATOS NO TIENE QUE ESTAR ORDENADA 
PARA NINGUNA DE LAS VARIABLES":LOCATE 
1,15:PRINT"QUIERES QUE LOS ORDENE YO DE 
MENOR A MAYOR PARA LA VARIABLE “;V1$: 
PRINT" (S/N)":INPUT R$ 

1JO CLS:R$=UPPER$<R$):IF R$<>"S" AND R$< 
> "N" TIIEN SOUND 1,500, 10: GOTO 100 
120 LOCATE 1,5:INPUT"CUAL ES EL NUMERO T 
OTAL DE DATOS" ;N: IF N<1 OR NoINT(N) THE 
N SOUND 1,500,10:CLS:G0T0 120 ELSE IF N> 
4000 THEN LOCATE 1, 20: PRINT ’SON DEMASIAD 
OS DATOS, NO PUEDO UTILIZAR TANTOS":FOR 
T=1 TO 2000:NEXT:CLS:GOTO 120 
130 CLS:DIM A(N-1,1) 

140 LOCATE 1,2:PRINT"INTRODUCCION DE DAT 
OS PARA LA VARIABLE ";V1$ 

150 FOR Z=0 TO N-l:LOCATE 5,12:PRINT STR 

ING$(36,32):LOCATE 5,12:PRINT"VALOR N.“; 

Z+l;": INPUT A(Z,0):NEXT 

160 LOCATE 3,20: PRINT'FIN DE LA INTRODUC 

CION DE LOS DATOS DE LA VARIABLE ";V1$: 

FOR T-l TO 2000:NEXT:CLS 

170 LOCATE 1,2:PRINT"INTRODUCCION DE DAT 

OS PARA I.A VARIABLE ";V2$ 

180 FOR Z=0 TO N-l:LOCATE 5,12:PRINT STR 
ING$<36,32):LOCATE 5,12:PKINT"VALOR N."; 
z + l;": :INPUT A(Z, 1):NEXT 


190 LOCATE 3,20:PRINT'FIN DE LA INTRODUC 

CION DE LOS DATOS DE LA VARIABLE ";V2$: 

FOR T=1 TO 2000:NEXT:CLS 

200 IF R$="N“ THEN 340 

210 LOCATE 2,12:PRINT"UN MOMENTO, ESTOY 

ORDENANDO LOS DATOS" 

220 FOR Z=0 TO N-2 
230 P=0 

240 FOR X=0 TO N-2 

250 IF A(X,0)<=A(X+1,0) THEN 290 

260 H=A(X, O):A(X,0)=A(X+1,O):A(X+1, 0)=H 

270 H=A(X,1):A(X,1>=A(X+1,1):A(X+1, 1)=H 

280 P—1 

290 NEXT 

300 IF P=0 THEN Z=N 
310 NEXT 

320 CI.S: PEN 2 : LOCATE 2,12: PRINT 'LISTA DE 
DATOS ORDENADA RESPECTO A LA VARIABLE 
•• • vi $ 

330 FOR T=1 TO 2000:NEXT:CLS 
340 INPUT"QUIERES ALMACENAR LOS DATOS EN 
CASSETTE RESPONDE S PARA SI, N PARA NO" 
;R$:R$-UPPER$(R$):IF R$<>"S" AND R$<>"N" 
THEN SOUND 1,500,10:CLS:GOTO 340 
350 CLS:IF R$="N" THEN 450 
360 LOCATE 5,4:PRINT"ALMACENAMIENTO DE L 
OS DATOS EN CASSETTE":PRINT:PRINT:INPUT" 
NOMBRE QUE QUIERES DARLE AL ARCHIVO 
(MAXIMO 10 CARACTERES)";Ní 



30 MUNDO AMSTRAND 






































LISTADOS 



370 K=LEN(N$):IF K<1 OK K>10 THEN SOUND 

1,500, 10:GOTO 350 

380 SPEED WRTTE l:OPENOUT N$ 

390 PRINTA9,N 

400 PRINT»9,V1$:PRINT#9, V2$ 

410 FOR Z=0 TO N-l 

420 PRINT89,A(Z, O):PRINT»9,A<Z,1) 

430 NEXT 

440 CL.OSEOUT: SPEED WRITE O 

450 CLS:N1=A(O, O):M1=N1:N2=A(O, 1):M2=N2 

460 FOR Z=1 TO N-l 

470 IF A(Z,O)<N1 THEN N1=A(Z,0) ELSE IF 
A(Z,0)>M1 THEN M1=A(Z,0) 

480 IF A(Z,1)<N2 THEN N2=A(Z,1) ELSE IF 
A(Z,1)>M2 THEN M2=A(Z,1) 

490 NEXT 

500 LOCATE 1,5:PRINT"VARIABLE ";V1$:L0CA 
TE 1,7:PRINT"MAXIMO:";MI:LOCATE 1,9:PRIN 
T'MINIMO: ,, ;N1:L0CATE 1. 12:PRINT"VARIABLE 
";V2$:LOCATE 1,14: PRINT' MAXIMO:";M2:L0C 
ATE 1,16:PRINT"MINIM0:”;N2 
510 LOCATE 1,20:PRINT"LA GRAFICA PERMANE 
CERA EN PANTALLA HASTAQUE PULSES <ENTER> 
"LOCATE 1,25:PRINT" AHORA PARA VER LA G 
RAFICA TULSA TECLA" 

520 IF INKEY$=“" THEN 520 
530 CLS:CLG:ORIGIN 0,0 

540 PEN 3:L1=LEN(V1 $):LOCATE 20-INTÍL1/2 
), 25.-PRINT Vl$:L2=12-INT(LEN(V2$)/2) :FOIi 
Z=1 TO LEN(V2$) : LOCATE 1,1,2+Z: PRINT MID 
$(V2$, Z, 1) :NEXT 

550 MOVE 80, 390: PLOTR 0.0, 2:DRAWR 0,-338 
:DRAWR 550,0 

560 1 OCATE 1,22:PRINT USING"#»»»";N2:LOC 
ATE 5,22:PRINT"-":LOCATE 1,2:PRINT USING 
"»«#»";M2:LOCATE 5,2:PRINT"-" 

570 LOCATE 6,23:PRINT"¡":LOCATE 39,23:PR 
INT" ¡ “ :LOCATE 4,24:PRINT USING"»»»»" ;N1: 
LOCATE 37,24:PRINT USING"»»»»";MI 
580 ORIGIN 88,56 
590 RX=M1-N1.RY=M2-N2 

600 XO=INT((A(0,O)-NI)/RX*526+0.5):YO-IN 
T((A(O, 1)-N2)/RY*320+0.5):PLOT XO,YO,1 
610 FOR Z=1 TO N-l 



620 X=INT(<A(Z,0)-Nl)/RX*526+0.5):Y=INT( 
(A(Z, 1)-N2)/RY*320+0.5):DRAW X,Y 
630 NEXT 

640 L$=INKEY$:IF L$OCHR$(13) THEN 640 
650 CLS:PEN 1 

660 LOCATE 4,8:PRINT"ELIGE UNA DE ESTAS 
OPCIONES:":LOCATE 2,10:PRINT"1.- VER OTR 
A VEZ LA GRAFICA":LOCATE 2,12:PRINT“2.- 
INTRODUCIR OTROS DATOS":LOCATE 2,14:PRIN 
T"3.- ABANDONAR EL PROGRAMA" 

670 L$=INKEY$:IF L$="" THEN 670 ELSE IF 
I.$= “ 1" THEN 530 ELSE IF L$="2" THEN RUN 
60 ELSE IF L$<>"3" THEN 670 
680 INK 1,24:CLS:PRINT"PREPARADO PARA EL 
SIGUIENTE PROGRAMA":RUN"" 

690 REM SACAR DATOS DEL CASSETTE 
700 OPENIN "*• 

710 INPUT89,N:A(1,1)=1:ERASE A:DIM A(N-1 
, 1) 

720 INPUT#9,Vl$:INPUT89, V2$ 

730 FOR Z=0 TO N-l 

740 INPUT89,A(Z,0):INPUT89, A(Z.1) 

750 NEXT 
760 CLOSFIN 

770 CLS: 1/3CATE 2, 12 : PRINT" INTRODUCCION D 
E LOS DATOS TERMINADA":FOR T=1 TO 2000:N 
EXT: Cl.S: RETURN 

780 DATA " GRAFICAS LINEA 
L E S",,," Las gráficas lineales se ut 
i]izan para",la representación de un con 
junto de, datos que relacionan do3 variab 
les.,," Un ejemplo de estas gráficas so 
n las",representaciones de un importe o 
de 

790 DATA "cualquier valor respecto al ti 
empo'', como puede ser el indice bursátil 
o el,peso de una persona.,," En la graf 
ioa,los datos pueden estar",ordenados de 
menor a mayor para la,variable en el ej 
e X (es lo mas normal),o no estarlo., 

800 DATA " El programa te permitirá alm 
acenar los",datos en cassette para futur 
as gráficas.,,” PULSA UNA TECLA PARA 
COMENZAR" 
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TABLON ELECTRONICO 


(Hola colegas!: mi nombre 
es Joaquín y tengo 16 años, 
mi intención es contactar con 
usuarios de Amstrad CPC, es¬ 
pecialmente residentes en San¬ 
tander o alrededores, para in¬ 
tercambio de programas, co¬ 
nocimientos, etc... 

Mi dirección es: 

Joaquín Díaz Blanco 
C/ General Yague, 4 - l.°C 
SANTANDER - (CANTABRIA) 

Vendo libros de ordenador 
(El ordenador personal y Ba¬ 
sic ameno) por 500 pesetas los 
dos, o también los cambio por 
otros libros o revistas. 

Daniel Mármol Boto. 
Virgen de Nuria, 61. Atico. 
HOSPITALET DE LLOBREGAT 
(BARCELONA) 

Vendo cajas para archivar dís- 
quetes de 3 pulgadas a 200 pts. 

Programas compatibles (PC) 
y disquetes de 5"1/4 a 1.250 la 
caja de 10 y a 130 ptas. unidad. 

Tel. 442 20 87 (Madrid) 
Sergio. Comidas 


Vendo o cambio programas 
de juegos como: ENDURO RA- 
CER, HYDROFOOL, COBRA, 
EL ENIGMA DE ACEPS, BOB 
WINNER, ETC... En utilidades 
DR. DRAW, DR. GRAPH, DOS- 
COLOGY, PAGEMAKER, ETC. 
Interesados llamar al tel. 14 
32 32. Sólo tardes 

José Manuel QuilezNlembro 
GIJON - (ASTURIAS) 


Vendo 2 SINCLAIR QL (23.000 
Pts. cada uno) y dos monitores 
PHILIPS (19.000 Pts. cada uno). 
Menos de 11 meses de uso. Per¬ 
fecto estado. Con varios progra¬ 
mas. Lote completo o por sepa¬ 
rado. 

Ricardo. - Apto. 368, 
Santiago de Compostela 
Tel. (981)59 35 91 


Vendo Impresora AMSTRAD DMP 3.000 nueva, sin estrenar, con ca¬ 
bles, cinta, papel continuo, manual de instrucciones y en su caja de 
embalaje, precio a negociar. Interesados llamar o escribir a Alberto 
Vallejo. C/Artekale, 1.5. a A. Elgolbar (GUIPUZCOA). TLF.(943) 741535. 


Vendo ordenador AMSTRAD CPC 6128 con monitor a color. Muy 
cuidado.Regalo muchos extras, como discos vírgenes, lecto-grabadora 
para cintas, cable de conexión, muchos juegos, etc. Todo original. 
Precio a convenir. Interesados dirigirse a José Antonio Arias. Avda. del 
Ejército,58. 1 . a 15.006 -LA CORUÑA. TLF.(981) 286507. 

Vendo ampliación de memoria de 64K completamente nueva por 
13.000 ptas. Jesús Tubío Fernández. C/ El Pilar,5. 14960 Rute. COR¬ 
DOBA. 


BUZON AMSTRAD 



Les agradecería que me ayudasen a resolver cierta cuestión que 
tengo. Poseo un Amstrad CPC 464 y mi duda es la siguiente: en algunos 
comentarios que hacéis sobre juegos, además incluís pokes para diver¬ 
sas cosas, mi duda es el cómo utilizar estos pokes. 

J .R.Rios 
(Santander) 

Para introducir los pokes, se acompaña el listado de un cargador que se 
encarga de meterlos en memoria. Este cargador se teclea, se graba, y a la 
hora de introducir el juego, se carga primero el cargador y luego el juego 
original. 

De todas maneras cada cargador se acompaña un pequeño comentario 
de cómo se ha de usar. 


AMSTRAD 

En ia tercera página de vuestro segundo número, viene la 
rutina CALL & BB45 y no me funciona. ¿Podríais informarme? 

El truco consiste precisamente en eso, en destruir el programa en el caso 
de intentar detenerlo. 
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PASATIEMPOS 


1. ¿Qué es Software? 

A) Es una distribuidora 
de utilidades 

B) Es lo que no se 
puede tocar en un orde¬ 
nador 

C) Es un juego de mar¬ 
cianos 

2. ¿Qué significa C.P.U.? 

A) Unidad Central de 
Proceso 

B) Consejos para Uso 
Público 

C) Unidos contra Pro¬ 
blemas Conyugales 

3. ¿Qué programa de éstos es 
de la empresa TOPO SOFT? 

A) Azpiri 

B) Desperado 

C) Star 


4. ¿Qué número es en decimal 
1111111111111111 ? 

A) 53556 

B) 65535 

C) 65536 

5. ¿En dónde se construyó el 
APPLE I? 


A) En un garaje 

B) En una factoría 

C) En un huerto de man¬ 
zanas 

Rellénalo con los siguientes nom¬ 
bres, teniendo en cuenta que 
en cada cuadro sólo se puede 
colocar una letra. 


- SINCLAIR 

- CHUCKPEDDLE 

- BILL GATES 

- STEVEJOBS 

- ADAMSOSBORNE 

- CHRIS CURRY 

- JUDY GOLDHILL 

- STEVE WOZNIAK 



CONCURSO 


En este montaje hay recortes de 
publicidad de varios juegos. Encuéntralos 
y envíanos la solución. Entrarás en el sor¬ 
teo de 2 juegos originales para cinco acer¬ 
tantes. 
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LIBRERIA 


PROGRAMACION DEL Z80 


El texto es una obra de referen¬ 
cia, ilustrada con más de 200 
gráficos y fotografías, orientada 
tanto al experto informático y al 
conocedor de las peculiaridades 
del Z80, como al neófito en progra¬ 
mación. 

El lector, según sean sus cono¬ 
cimientos respecto a la progra¬ 
mación de microordenadores, 
podrá entrar directamente en uno 
u otro capítulo. El texto conduce 
al usuario a través de todos los 
conceptos y técnicas básicos ne¬ 
cesarios para crear programas 
cada vez más complicados, 


‘R.Zaks. 

Anaya Multimedia. 

606 pag. 

1985. 

ayudándose para ello de numero¬ 
sos ejercicios escalonados en 
cuanto a su dificultad. Se incluye 
también, un extenso capítulo con 
una descripción detallada del juego 
de instrucciones del Z80: código 
operativo, función, flujo de datos, 
modo de direccionamiento, tiempo 
de ejecución, etc. 




AMSTRAD CPC-464. 

PROGRAMACION 

AVANZADA. 

El libro parte de la idea de que 
el lector ha trabajado ya con el 464 
y ha realizado algunos programas 
simples. Empieza con una des¬ 
cripción de los modos de comuni¬ 
cación con los dispositivos exter¬ 
nos, así como en una rápida visión 
del BASIC y las palabras clave del 
repertorio del Amstrad. 

El texto contiene cuarenta pro- 


M. Harrlson. 

Rana-ma. Edityores. 

147 pag. 

1984. 

gramas completos preparados para 
ser ejecutados. 

Así mismo, se incluyen progra¬ 
mas para descifrar códigos, clasifi¬ 
car información en cualquier or¬ 
den, trazar dibujos en tres dimen¬ 
siones y aplicaciones comerciales, 
entre otros. 

Es de destacar la presentación 
de un juego de tipo arcade espa¬ 
cial y un programa completo de 
sintetizadorde sonido. 



TODO UN AÑO DE PROGRAMAS E INFORMACION 


Deseo suscribirme a la Revista Mundo Amstrad durante un año por sólo 2.000 ptas., lo que equivale a comprar 
doce ejemplares al precio de diez. (Oferta válida sólo para España). 

Nombre y apellidos: ... 

Dirección: .Tfno.: .'.. 

Localidad: .C.P.: .Provincia: . 

Forma de pago:Contra reembolso: □Giro Postal N.° .□ Cheque N.° . 

Recorta o fotocopia este cupón y envíalo a: Mundo Spectrum, Tomás López, 3-6.° 28009 MADRID 


> 
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SPECTRUM 
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